home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2000-02-21 | 14.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 10 43 | 42 65 74 74 65 72 50 6f |.Class.C|BetterPo|
|00000010| 70 75 70 4d 65 6e 75 20 | 36 82 0f a8 08 07 00 10 |pupMenu |6.......|
|00000020| 43 42 65 74 74 65 72 50 | 6f 70 75 70 4d 65 6e 75 |CBetterP|opupMenu|
|00000030| 80 02 06 43 61 6e 76 61 | 73 00 07 16 50 4d 65 6e |...Canva|s...PMen|
|00000040| 75 48 61 6e 64 6c 65 20 | 61 73 20 69 6e 74 65 67 |uHandle |as integ|
|00000050| 65 72 01 11 4d 65 6e 75 | 49 44 20 61 73 20 69 6e |er..Menu|ID as in|
|00000060| 74 65 67 65 72 00 16 50 | 4d 65 6e 75 48 56 61 6c |teger..P|MenuHVal|
|00000070| 69 64 20 61 73 20 62 6f | 6f 6c 65 61 6e 01 10 53 |id as bo|olean..S|
|00000080| 74 79 6c 65 20 61 73 20 | 69 6e 74 65 67 65 72 00 |tyle as |integer.|
|00000090| 15 50 4c 69 73 74 49 6e | 64 65 78 20 61 73 20 69 |.PListIn|dex as i|
|000000a0| 6e 74 65 67 65 72 01 12 | 54 65 78 74 46 6f 6e 74 |nteger..|TextFont|
|000000b0| 20 61 73 20 73 74 72 69 | 6e 67 00 13 54 65 78 74 | as stri|ng..Text|
|000000c0| 53 69 7a 65 20 61 73 20 | 69 6e 74 65 67 65 72 00 |Size as |integer.|
|000000d0| 1f 0c 50 44 69 73 70 6c | 61 79 4d 65 6e 75 00 00 |..PDispl|ayMenu..|
|000000e0| 01 27 03 27 03 35 12 53 | 75 62 20 50 44 69 73 70 |.'.'.5.S|ub PDisp|
|000000f0| 6c 61 79 4d 65 6e 75 28 | 29 1e 64 69 6d 20 52 65 |layMenu(|).dim Re|
|00000100| 73 75 6c 74 2c 4e 65 77 | 49 6e 64 65 78 20 61 73 |sult,New|Index as|
|00000110| 20 69 6e 74 65 67 65 72 | 18 64 69 6d 20 66 61 6d | integer|.dim fam|
|00000120| 49 44 20 61 73 20 4d 65 | 6d 6f 72 79 42 6c 6f 63 |ID as Me|moryBloc|
|00000130| 6b 00 1e 64 69 6d 20 6f | 6c 64 46 6f 6e 74 2c 6f |k..dim o|ldFont,o|
|00000140| 6c 64 53 69 7a 65 20 61 | 73 20 69 6e 74 65 67 65 |ldSize a|s intege|
|00000150| 72 00 16 69 66 20 6d 65 | 2e 50 4d 65 6e 75 48 56 |r..if me|.PMenuHV|
|00000160| 61 6c 69 64 20 74 68 65 | 6e 85 02 64 65 63 6c 61 |alid the|n..decla|
|00000170| 72 65 20 66 75 6e 63 74 | 69 6f 6e 20 50 6f 70 55 |re funct|ion PopU|
|00000180| 70 4d 65 6e 75 53 65 6c | 65 63 74 20 6c 69 62 20 |pMenuSel|ect lib |
|00000190| 22 49 6e 74 65 72 66 61 | 63 65 4c 69 62 22 20 28 |"Interfa|ceLib" (|
|000001a0| 74 68 65 4d 65 6e 75 20 | 61 73 20 69 6e 74 65 67 |theMenu |as integ|
|000001b0| 65 72 2c 74 6f 70 20 61 | 73 20 69 6e 74 65 67 65 |er,top a|s intege|
|000001c0| 72 2c 6c 65 66 74 20 61 | 73 20 69 6e 74 65 67 65 |r,left a|s intege|
|000001d0| 72 2c 64 66 4d 49 74 65 | 6d 20 61 73 20 69 6e 74 |r,dfMIte|m as int|
|000001e0| 65 67 65 72 29 20 61 73 | 20 69 6e 74 65 67 65 72 |eger) as| integer|
|000001f0| 92 01 64 65 63 6c 61 72 | 65 20 66 75 6e 63 74 69 |..declar|e functi|
|00000200| 6f 6e 20 49 6e 73 65 72 | 74 4d 65 6e 75 20 6c 69 |on Inser|tMenu li|
|00000210| 62 20 22 49 6e 74 65 72 | 66 61 63 65 4c 69 62 22 |b "Inter|faceLib"|
|00000220| 20 28 74 68 65 4d 65 6e | 75 20 61 73 20 69 6e 74 | (theMen|u as int|
|00000230| 65 67 65 72 2c 69 74 65 | 6d 4e 20 61 73 20 73 68 |eger,ite|mN as sh|
|00000240| 6f 72 74 29 3d 64 65 63 | 6c 61 72 65 20 73 75 62 |ort)=dec|lare sub|
|00000250| 20 44 65 6c 65 74 65 4d | 65 6e 75 20 6c 69 62 20 | DeleteM|enu lib |
|00000260| 22 49 6e 74 65 72 66 61 | 63 65 4c 69 62 22 20 28 |"Interfa|ceLib" (|
|00000270| 6d 65 6e 75 49 44 20 61 | 73 20 69 6e 74 65 67 65 |menuID a|s intege|
|00000280| 72 29 00 80 01 64 65 63 | 6c 61 72 65 20 73 75 62 |r)...dec|lare sub|
|00000290| 20 49 6e 76 61 6c 4d 65 | 6e 75 42 61 72 20 4c 69 | InvalMe|nuBar Li|
|000002a0| 62 20 22 49 6e 74 65 72 | 66 61 63 65 4c 69 62 22 |b "Inter|faceLib"|
|000002b0| 20 28 29 20 49 6e 6c 69 | 6e 65 36 38 4b 28 22 41 | () Inli|ne68K("A|
|000002c0| 38 31 44 22 29 00 93 01 | 2f 2f 61 20 63 6f 75 70 |81D")...|//a coup|
|000002d0| 6c 65 20 6f 66 20 4c 6f | 77 4d 65 6d 20 63 61 6c |le of Lo|wMem cal|
|000002e0| 6c 73 2e 2e 2e 20 77 61 | 74 63 68 20 6f 75 74 20 |ls... wa|tch out |
|000002f0| 2d 20 74 68 65 79 20 77 | 69 6c 6c 20 70 72 6f 62 |- they w|ill prob|
|00000300| 61 62 6c 79 20 6e 6f 74 | 20 77 6f 72 6b 20 75 6e |ably not| work un|
|00000310| 64 65 72 20 43 61 72 62 | 6f 6e 21 95 01 64 65 63 |der Carb|on!..dec|
|00000320| 6c 61 72 65 20 73 75 62 | 20 4c 4d 53 65 74 53 79 |lare sub| LMSetSy|
|00000330| 73 46 6f 6e 74 46 61 6d | 20 4c 69 62 20 22 49 6e |sFontFam| Lib "In|
|00000340| 74 65 72 66 61 63 65 4c | 69 62 22 20 28 76 61 6c |terfaceL|ib" (val|
|00000350| 75 65 20 61 73 20 53 68 | 6f 72 74 29 20 49 6e 6c |ue as Sh|ort) Inl|
|00000360| 69 6e 65 36 38 4b 28 22 | 33 31 44 46 30 42 41 36 |ine68K("|31DF0BA6|
|00000370| 22 29 96 01 64 65 63 6c | 61 72 65 20 73 75 62 20 |")..decl|are sub |
|00000380| 4c 4d 53 65 74 53 79 73 | 46 6f 6e 74 53 69 7a 65 |LMSetSys|FontSize|
|00000390| 20 4c 69 62 20 22 49 6e | 74 65 72 66 61 63 65 4c | Lib "In|terfaceL|
|000003a0| 69 62 22 20 28 76 61 6c | 75 65 20 61 73 20 53 68 |ib" (val|ue as Sh|
|000003b0| 6f 72 74 29 20 49 6e 6c | 69 6e 65 36 38 4b 28 22 |ort) Inl|ine68K("|
|000003c0| 33 31 44 46 30 42 41 38 | 22 29 98 01 64 65 63 6c |31DF0BA8|")..decl|
|000003d0| 61 72 65 20 73 75 62 20 | 4c 4d 53 65 74 4c 61 73 |are sub |LMSetLas|
|000003e0| 74 53 50 45 78 74 72 61 | 20 4c 69 62 20 22 49 6e |tSPExtra| Lib "In|
|000003f0| 74 65 72 66 61 63 65 4c | 69 62 22 20 28 76 61 6c |terfaceL|ib" (val|
|00000400| 75 65 20 61 73 20 49 6e | 74 65 67 65 72 29 20 49 |ue as In|teger) I|
|00000410| 6e 6c 69 6e 65 36 38 4b | 28 22 32 31 44 46 30 42 |nline68K|("21DF0B|
|00000420| 34 43 22 29 95 01 64 65 | 63 6c 61 72 65 20 66 75 |4C")..de|clare fu|
|00000430| 6e 63 74 69 6f 6e 20 4c | 4d 47 65 74 53 79 73 46 |nction L|MGetSysF|
|00000440| 6f 6e 74 46 61 6d 20 4c | 69 62 20 22 49 6e 74 65 |ontFam L|ib "Inte|
|00000450| 72 66 61 63 65 4c 69 62 | 22 20 28 29 20 61 73 20 |rfaceLib|" () as |
|00000460| 53 68 6f 72 74 20 49 6e | 6c 69 6e 65 36 38 4b 28 |Short In|line68K(|
|00000470| 22 33 45 42 38 30 42 41 | 36 22 29 96 01 64 65 63 |"3EB80BA|6")..dec|
|00000480| 6c 61 72 65 20 66 75 6e | 63 74 69 6f 6e 20 4c 4d |lare fun|ction LM|
|00000490| 47 65 74 53 79 73 46 6f | 6e 74 53 69 7a 65 20 4c |GetSysFo|ntSize L|
|000004a0| 69 62 20 22 49 6e 74 65 | 72 66 61 63 65 4c 69 62 |ib "Inte|rfaceLib|
|000004b0| 22 20 28 29 20 61 73 20 | 53 68 6f 72 74 20 49 6e |" () as |Short In|
|000004c0| 6c 69 6e 65 36 38 4b 28 | 22 33 45 42 38 30 42 41 |line68K(|"3EB80BA|
|000004d0| 38 22 29 00 00 9b 01 64 | 65 63 6c 61 72 65 20 73 |8")....d|eclare s|
|000004e0| 75 62 20 47 65 74 46 4e | 75 6d 20 4c 69 62 20 22 |ub GetFN|um Lib "|
|000004f0| 49 6e 74 65 72 66 61 63 | 65 4c 69 62 22 20 28 6e |Interfac|eLib" (n|
|00000500| 61 6d 65 20 61 73 20 50 | 53 74 72 69 6e 67 2c 20 |ame as P|String, |
|00000510| 66 61 6d 69 6c 79 49 44 | 20 61 73 20 50 74 72 29 |familyID| as Ptr)|
|00000520| 20 49 6e 6c 69 6e 65 36 | 38 4b 28 22 41 39 30 30 | Inline6|8K("A900|
|00000530| 22 29 00 35 69 66 20 6d | 65 2e 74 65 78 74 46 6f |").5if m|e.textFo|
|00000540| 6e 74 20 3c 3e 20 22 53 | 79 73 74 65 6d 22 20 61 |nt <> "S|ystem" a|
|00000550| 6e 64 20 6d 65 2e 74 65 | 78 74 46 6f 6e 74 20 3c |nd me.te|xtFont <|
|00000560| 3e 20 22 22 20 74 68 65 | 6e 1b 6f 6c 64 46 6f 6e |> "" the|n.oldFon|
|00000570| 74 20 3d 20 4c 4d 47 65 | 74 53 79 73 46 6f 6e 74 |t = LMGe|tSysFont|
|00000580| 46 61 6d 28 29 1c 6f 6c | 64 53 69 7a 65 20 3d 20 |Fam().ol|dSize = |
|00000590| 4c 4d 47 65 74 53 79 73 | 46 6f 6e 74 53 69 7a 65 |LMGetSys|FontSize|
|000005a0| 28 29 00 19 66 61 6d 49 | 44 20 3d 20 4e 65 77 4d |()..famI|D = NewM|
|000005b0| 65 6d 6f 72 79 42 6c 6f | 63 6b 28 32 29 19 47 65 |emoryBlo|ck(2).Ge|
|000005c0| 74 46 4e 75 6d 20 6d 65 | 2e 54 65 78 74 46 6f 6e |tFNum me|.TextFon|
|000005d0| 74 2c 66 61 6d 49 44 1e | 4c 4d 53 65 74 53 79 73 |t,famID.|LMSetSys|
|000005e0| 46 6f 6e 74 46 61 6d 20 | 66 61 6d 49 44 2e 73 68 |FontFam |famID.sh|
|000005f0| 6f 72 74 28 30 29 1c 4c | 4d 53 65 74 53 79 73 46 |ort(0).L|MSetSysF|
|00000600| 6f 6e 74 53 69 7a 65 20 | 6d 65 2e 54 65 78 74 53 |ontSize |me.TextS|
|00000610| 69 7a 65 13 4c 4d 53 65 | 74 4c 61 73 74 53 50 45 |ize.LMSe|tLastSPE|
|00000620| 78 74 72 61 20 2d 31 03 | 65 6e 64 00 1c 49 6e 73 |xtra -1.|end..Ins|
|00000630| 65 72 74 4d 65 6e 75 20 | 6d 65 2e 50 4d 65 6e 75 |ertMenu |me.PMenu|
|00000640| 48 61 6e 64 6c 65 2c 2d | 31 af 01 52 65 73 75 6c |Handle,-|1..Resul|
|00000650| 74 20 3d 20 50 6f 70 75 | 70 4d 65 6e 75 53 65 6c |t = Popu|pMenuSel|
|00000660| 65 63 74 28 6d 65 2e 50 | 4d 65 6e 75 48 61 6e 64 |ect(me.P|MenuHand|
|00000670| 6c 65 2c 6d 65 2e 77 69 | 6e 64 6f 77 2e 74 6f 70 |le,me.wi|ndow.top|
|00000680| 20 2b 20 6d 65 2e 74 6f | 70 20 2b 20 31 2c 6d 65 | + me.to|p + 1,me|
|00000690| 2e 77 69 6e 64 6f 77 2e | 6c 65 66 74 20 2b 20 6d |.window.|left + m|
|000006a0| 65 2e 6c 65 66 74 20 2b | 20 31 2c 6d 65 2e 4c 69 |e.left +| 1,me.Li|
|000006b0| 73 74 49 6e 64 65 78 28 | 29 29 00 35 69 66 20 6d |stIndex(|)).5if m|
|000006c0| 65 2e 74 65 78 74 46 6f | 6e 74 20 3c 3e 20 22 53 |e.textFo|nt <> "S|
|000006d0| 79 73 74 65 6d 22 20 61 | 6e 64 20 6d 65 2e 74 65 |ystem" a|nd me.te|
|000006e0| 78 74 46 6f 6e 74 20 3c | 3e 20 22 22 20 74 68 65 |xtFont <|> "" the|
|000006f0| 6e 17 4c 4d 53 65 74 53 | 79 73 46 6f 6e 74 46 61 |n.LMSetS|ysFontFa|
|00000700| 6d 20 6f 6c 64 46 6f 6e | 74 18 4c 4d 53 65 74 53 |m oldFon|t.LMSetS|
|00000710| 79 73 46 6f 6e 74 53 69 | 7a 65 20 6f 6c 64 53 69 |ysFontSi|ze oldSi|
|00000720| 7a 65 13 4c 4d 53 65 74 | 4c 61 73 74 53 50 45 78 |ze.LMSet|LastSPEx|
|00000730| 74 72 61 20 2d 31 0c 49 | 6e 76 61 6c 4d 65 6e 75 |tra -1.I|nvalMenu|
|00000740| 42 61 72 03 65 6e 64 00 | 14 44 65 6c 65 74 65 4d |Bar.end.|.DeleteM|
|00000750| 65 6e 75 20 6d 65 2e 4d | 65 6e 75 49 44 00 21 4e |enu me.M|enuID.!N|
|00000760| 65 77 49 6e 64 65 78 20 | 3d 20 42 69 74 77 69 73 |ewIndex |= Bitwis|
|00000770| 65 41 6e 64 28 52 65 73 | 75 6c 74 2c 32 35 35 29 |eAnd(Res|ult,255)|
|00000780| 15 69 66 20 4e 65 77 49 | 6e 64 65 78 20 3c 3e 20 |.if NewI|ndex <> |
|00000790| 30 20 74 68 65 6e 18 6d | 65 2e 50 4c 69 73 74 49 |0 then.m|e.PListI|
|000007a0| 6e 64 65 78 20 3d 20 4e | 65 77 49 6e 64 65 78 08 |ndex = N|ewIndex.|
|000007b0| 43 68 61 6e 67 65 28 29 | 03 65 6e 64 03 65 6e 64 |Change()|.end.end|
|000007c0| 07 45 6e 64 20 53 75 62 | 06 41 64 64 52 6f 77 0e |.End Sub|.AddRow.|
|000007d0| 74 65 78 74 20 61 73 20 | 73 74 72 69 6e 67 00 00 |text as |string..|
|000007e0| 01 07 01 07 03 1a 53 75 | 62 20 41 64 64 52 6f 77 |......Su|b AddRow|
|000007f0| 28 74 65 78 74 20 61 73 | 20 73 74 72 69 6e 67 29 |(text as| string)|
|00000800| 21 6d 65 2e 49 6e 73 65 | 72 74 52 6f 77 28 6d 65 |!me.Inse|rtRow(me|
|00000810| 2e 4c 69 73 74 43 6f 75 | 6e 74 28 29 2c 74 65 78 |.ListCou|nt(),tex|
|00000820| 74 29 07 45 6e 64 20 53 | 75 62 09 4c 69 73 74 43 |t).End S|ub.ListC|
|00000830| 6f 75 6e 74 00 07 69 6e | 74 65 67 65 72 00 03 21 |ount..in|teger..!|
|00000840| 03 21 06 1f 46 75 6e 63 | 74 69 6f 6e 20 4c 69 73 |.!..Func|tion Lis|
|00000850| 74 43 6f 75 6e 74 28 29 | 20 41 73 20 69 6e 74 65 |tCount()| As inte|
|00000860| 67 65 72 16 69 66 20 6d | 65 2e 50 4d 65 6e 75 48 |ger.if m|e.PMenuH|
|00000870| 56 61 6c 69 64 20 74 68 | 65 6e 8f 01 64 65 63 6c |Valid th|en..decl|
|00000880| 61 72 65 20 66 75 6e 63 | 74 69 6f 6e 20 43 6f 75 |are func|tion Cou|
|00000890| 6e 74 4d 49 74 65 6d 73 | 20 6c 69 62 20 22 49 6e |ntMItems| lib "In|
|000008a0| 74 65 72 66 61 63 65 4c | 69 62 22 20 28 74 68 65 |terfaceL|ib" (the|
|000008b0| 4d 65 6e 75 20 61 73 20 | 69 6e 74 65 67 65 72 29 |Menu as |integer)|
|000008c0| 20 61 73 20 69 6e 74 65 | 67 65 72 22 72 65 74 75 | as inte|ger"retu|
|000008d0| 72 6e 20 43 6f 75 6e 74 | 4d 49 74 65 6d 73 28 6d |rn Count|MItems(m|
|000008e0| 65 2e 50 4d 65 6e 75 48 | 61 6e 64 6c 65 29 03 65 |e.PMenuH|andle).e|
|000008f0| 6e 64 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 04 |nd.End F|unction.|
|00000900| 4c 69 73 74 0c 6e 20 61 | 73 20 69 6e 74 65 67 65 |List.n a|s intege|
|00000910| 72 06 73 74 72 69 6e 67 | 00 0d 03 0d 03 0f 25 46 |r.string|......%F|
|00000920| 75 6e 63 74 69 6f 6e 20 | 4c 69 73 74 28 6e 20 61 |unction |List(n a|
|00000930| 73 20 69 6e 74 65 67 65 | 72 29 20 41 73 20 73 74 |s intege|r) As st|
|00000940| 72 69 6e 67 1c 64 69 6d | 20 4c 69 73 74 45 6e 74 |ring.dim| ListEnt|
|00000950| 72 79 20 61 73 20 4d 65 | 6d 6f 72 79 42 6c 6f 63 |ry as Me|moryBloc|
|00000960| 6b 00 1f 4c 69 73 74 45 | 6e 74 72 79 20 3d 20 4e |k..ListE|ntry = N|
|00000970| 65 77 4d 65 6d 6f 72 79 | 42 6c 6f 63 6b 28 32 35 |ewMemory|Block(25|
|00000980| 36 29 00 16 69 66 20 6d | 65 2e 50 4d 65 6e 75 48 |6)..if m|e.PMenuH|
|00000990| 56 61 6c 69 64 20 74 68 | 65 6e 1a 69 66 20 6e 20 |Valid th|en.if n |
|000009a0| 3e 20 6d 65 2e 4c 69 73 | 74 43 6f 75 6e 74 28 29 |> me.Lis|tCount()|
|000009b0| 20 74 68 65 6e 1e 72 61 | 69 73 65 20 6e 65 77 20 | then.ra|ise new |
|000009c0| 4f 75 74 4f 66 42 6f 75 | 6e 64 73 45 78 63 65 70 |OutOfBou|ndsExcep|
|000009d0| 74 69 6f 6e 04 65 6c 73 | 65 a7 01 64 65 63 6c 61 |tion.els|e..decla|
|000009e0| 72 65 20 73 75 62 20 47 | 65 74 4d 65 6e 75 49 74 |re sub G|etMenuIt|
|000009f0| 65 6d 54 65 78 74 20 6c | 69 62 20 22 49 6e 74 65 |emText l|ib "Inte|
|00000a00| 72 66 61 63 65 4c 69 62 | 22 20 28 74 68 65 4d 65 |rfaceLib|" (theMe|
|00000a10| 6e 75 20 61 73 20 69 6e | 74 65 67 65 72 2c 20 69 |nu as in|teger, i|
|00000a20| 74 65 6d 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |tem as i|nteger, |
|00000a30| 69 74 65 6d 53 74 72 69 | 6e 67 20 61 73 20 70 74 |itemStri|ng as pt|
|00000a40| 72 29 2a 47 65 74 4d 65 | 6e 75 49 74 65 6d 54 65 |r)*GetMe|nuItemTe|
|00000a50| 78 74 20 6d 65 2e 50 4d | 65 6e 75 48 61 6e 64 6c |xt me.PM|enuHandl|
|00000a60| 65 2c 6e 2c 4c 69 73 74 | 45 6e 74 72 79 1b 72 65 |e,n,List|Entry.re|
|00000a70| 74 75 72 6e 20 4c 69 73 | 74 45 6e 74 72 79 2e 70 |turn Lis|tEntry.p|
|00000a80| 73 74 72 69 6e 67 28 30 | 29 03 65 6e 64 03 65 6e |string(0|).end.en|
|00000a90| 64 0c 45 6e 64 20 46 75 | 6e 63 74 69 6f 6e 09 52 |d.End Fu|nction.R|
|00000aa0| 65 6d 6f 76 65 52 6f 77 | 11 72 6f 77 4e 75 6d 20 |emoveRow|.rowNum |
|00000ab0| 61 73 20 69 6e 74 65 67 | 65 72 00 00 06 1d 06 1d |as integ|er......|
|00000ac0| 0a 20 53 75 62 20 52 65 | 6d 6f 76 65 52 6f 77 28 |. Sub Re|moveRow(|
|00000ad0| 72 6f 77 4e 75 6d 20 61 | 73 20 69 6e 74 65 67 65 |rowNum a|s intege|
|00000ae0| 72 29 16 69 66 20 6d 65 | 2e 50 4d 65 6e 75 48 56 |r).if me|.PMenuHV|
|00000af0| 61 6c 69 64 20 74 68 65 | 6e 92 01 64 65 63 6c 61 |alid the|n..decla|
|00000b00| 72 65 20 73 75 62 20 44 | 65 6c 65 74 65 4d 65 6e |re sub D|eleteMen|
|00000b10| 75 49 74 65 6d 20 6c 69 | 62 20 22 49 6e 74 65 72 |uItem li|b "Inter|
|00000b20| 66 61 63 65 4c 69 62 22 | 20 28 74 68 65 4d 65 6e |faceLib"| (theMen|
|00000b30| 75 20 61 73 20 69 6e 74 | 65 67 65 72 2c 69 74 65 |u as int|eger,ite|
|00000b40| 6d 20 61 73 20 69 6e 74 | 65 67 65 72 29 1f 69 66 |m as int|eger).if|
|00000b50| 20 72 6f 77 4e 75 6d 20 | 3e 20 6d 65 2e 4c 69 73 | rowNum |> me.Lis|
|00000b60| 74 43 6f 75 6e 74 28 29 | 20 74 68 65 6e 1e 72 61 |tCount()| then.ra|
|00000b70| 69 73 65 20 6e 65 77 20 | 4f 75 74 4f 66 42 6f 75 |ise new |OutOfBou|
|00000b80| 6e 64 73 45 78 63 65 70 | 74 69 6f 6e 04 65 6c 73 |ndsExcep|tion.els|
|00000b90| 65 24 44 65 6c 65 74 65 | 4d 65 6e 75 49 74 65 6d |e$Delete|MenuItem|
|00000ba0| 20 6d 65 2e 50 4d 65 6e | 75 48 61 6e 64 6c 65 2c | me.PMen|uHandle,|
|00000bb0| 72 6f 77 4e 75 6d 03 65 | 6e 64 03 65 6e 64 07 45 |rowNum.e|nd.end.E|
|00000bc0| 6e 64 20 53 75 62 07 50 | 44 61 72 6b 65 6e 0a 63 |nd Sub.P|Darken.c|
|00000bd0| 20 61 73 20 63 6f 6c 6f | 72 05 63 6f 6c 6f 72 01 | as colo|r.color.|
|00000be0| 01 00 01 00 03 25 46 75 | 6e 63 74 69 6f 6e 20 50 |.....%Fu|nction P|
|00000bf0| 44 61 72 6b 65 6e 28 63 | 20 61 73 20 63 6f 6c 6f |Darken(c| as colo|
|00000c00| 72 29 20 41 73 20 63 6f | 6c 6f 72 2f 72 65 74 75 |r) As co|lor/retu|
|00000c10| 72 6e 20 52 47 42 28 63 | 2e 72 65 64 20 2d 20 33 |rn RGB(c|.red - 3|
|00000c20| 30 2c 63 2e 67 72 65 65 | 6e 20 2d 20 33 30 2c 63 |0,c.gree|n - 30,c|
|00000c30| 2e 62 6c 75 65 20 2d 20 | 33 30 29 0c 45 6e 64 20 |.blue - |30).End |
|00000c40| 46 75 6e 63 74 69 6f 6e | 0c 41 64 64 53 65 70 61 |Function|.AddSepa|
|00000c50| 72 61 74 6f 72 00 00 00 | 01 0e 01 0e 03 12 53 75 |rator...|......Su|
|00000c60| 62 20 41 64 64 53 65 70 | 61 72 61 74 6f 72 28 29 |b AddSep|arator()|
|00000c70| 0e 6d 65 2e 41 64 64 52 | 6f 77 28 22 2d 22 29 07 |.me.AddR|ow("-").|
|00000c80| 45 6e 64 20 53 75 62 0d | 44 65 6c 65 74 65 41 6c |End Sub.|DeleteAl|
|00000c90| 6c 52 6f 77 73 00 00 00 | 03 0f 03 0f 06 13 53 75 |lRows...|......Su|
|00000ca0| 62 20 44 65 6c 65 74 65 | 41 6c 6c 52 6f 77 73 28 |b Delete|AllRows(|
|00000cb0| 29 10 64 69 6d 20 69 20 | 61 73 20 69 6e 74 65 67 |).dim i |as integ|
|00000cc0| 65 72 1b 66 6f 72 20 69 | 20 3d 20 31 20 74 6f 20 |er.for i| = 1 to |
|00000cd0| 6d 65 2e 4c 69 73 74 43 | 6f 75 6e 74 28 29 0f 6d |me.ListC|ount().m|
|00000ce0| 65 2e 52 65 6d 6f 76 65 | 52 6f 77 28 69 29 04 6e |e.Remove|Row(i).n|
|00000cf0| 65 78 74 07 45 6e 64 20 | 53 75 62 09 49 6e 73 65 |ext.End |Sub.Inse|
|00000d00| 72 74 52 6f 77 1f 77 68 | 65 72 65 20 61 73 20 69 |rtRow.wh|ere as i|
|00000d10| 6e 74 65 67 65 72 2c 74 | 65 78 74 20 61 73 20 73 |nteger,t|ext as s|
|00000d20| 74 72 69 6e 67 00 00 03 | 1d 03 1d 08 2e 53 75 62 |tring...|.....Sub|
|00000d30| 20 49 6e 73 65 72 74 52 | 6f 77 28 77 68 65 72 65 | InsertR|ow(where|
|00000d40| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 74 65 78 74 | as inte|ger,text|
|00000d50| 20 61 73 20 73 74 72 69 | 6e 67 29 16 69 66 20 6d | as stri|ng).if m|
|00000d60| 65 2e 50 4d 65 6e 75 48 | 56 61 6c 69 64 20 74 68 |e.PMenuH|Valid th|
|00000d70| 65 6e ab 01 64 65 63 6c | 61 72 65 20 73 75 62 20 |en..decl|are sub |
|00000d80| 49 6e 73 65 72 74 4d 65 | 6e 75 49 74 65 6d 20 6c |InsertMe|nuItem l|
|00000d90| 69 62 20 22 49 6e 74 65 | 72 66 61 63 65 4c 69 62 |ib "Inte|rfaceLib|
|00000da0| 22 20 28 74 68 65 4d 65 | 6e 75 20 61 73 20 69 6e |" (theMe|nu as in|
|00000db0| 74 65 67 65 72 2c 69 74 | 65 6d 53 74 72 69 6e 67 |teger,it|emString|
|00000dc0| 20 61 73 20 50 53 74 72 | 69 6e 67 2c 61 66 74 65 | as PStr|ing,afte|
|00000dd0| 72 49 74 65 6d 20 61 73 | 20 73 68 6f 72 74 29 28 |rItem as| short)(|
|00000de0| 49 6e 73 65 72 74 4d 65 | 6e 75 49 74 65 6d 20 6d |InsertMe|nuItem m|
|00000df0| 65 2e 50 4d 65 6e 75 48 | 61 6e 64 6c 65 2c 74 65 |e.PMenuH|andle,te|
|00000e00| 78 74 2c 77 68 65 72 65 | 04 65 6c 73 65 04 62 65 |xt,where|.else.be|
|00000e10| 65 70 03 65 6e 64 07 45 | 6e 64 20 53 75 62 0e 50 |ep.end.E|nd Sub.P|
|00000e20| 52 65 6e 64 65 72 43 6f | 6e 74 72 6f 6c 10 73 74 |RenderCo|ntrol.st|
|00000e30| 61 74 65 20 61 73 20 69 | 6e 74 65 67 65 72 00 01 |ate as i|nteger..|
|00000e40| 8e 01 19 8e 01 19 b3 02 | 24 53 75 62 20 50 52 65 |........|$Sub PRe|
|00000e50| 6e 64 65 72 43 6f 6e 74 | 72 6f 6c 28 73 74 61 74 |nderCont|rol(stat|
|00000e60| 65 20 61 73 20 69 6e 74 | 65 67 65 72 29 11 64 69 |e as int|eger).di|
|00000e70| 6d 20 67 20 61 73 20 67 | 72 61 70 68 69 63 73 13 |m g as g|raphics.|
|00000e80| 64 69 6d 20 69 63 6f 6e | 20 61 73 20 70 69 63 74 |dim icon| as pict|
|00000e90| 75 72 65 1f 64 69 6d 20 | 69 63 6f 6e 49 44 2c 20 |ure.dim |iconID, |
|00000ea0| 63 61 70 74 69 6f 6e 58 | 20 61 73 20 69 6e 74 65 |captionX| as inte|
|00000eb0| 67 65 72 00 17 63 6f 6e | 73 74 20 6b 4e 6f 72 6d |ger..con|st kNorm|
|00000ec0| 61 6c 5f 73 74 61 74 65 | 20 3d 20 30 18 63 6f 6e |al_state| = 0.con|
|00000ed0| 73 74 20 6b 50 72 65 73 | 73 65 64 5f 73 74 61 74 |st kPres|sed_stat|
|00000ee0| 65 20 3d 20 31 19 63 6f | 6e 73 74 20 6b 44 69 73 |e = 1.co|nst kDis|
|00000ef0| 61 62 6c 65 64 5f 73 74 | 61 74 65 20 3d 20 32 00 |abled_st|ate = 2.|
|00000f00| 0f 67 20 3d 20 6d 65 2e | 67 72 61 70 68 69 63 73 |.g = me.|graphics|
|00000f10| 18 67 2e 74 65 78 74 46 | 6f 6e 74 20 3d 20 6d 65 |.g.textF|ont = me|
|00000f20| 2e 74 65 78 74 46 6f 6e | 74 18 67 2e 74 65 78 74 |.textFon|t.g.text|
|00000f30| 53 69 7a 65 20 3d 20 6d | 65 2e 74 65 78 74 53 69 |Size = m|e.textSi|
|00000f40| 7a 65 0c 63 61 70 74 69 | 6f 6e 58 20 3d 20 38 00 |ze.capti|onX = 8.|
|00000f50| 11 73 65 6c 65 63 74 20 | 63 61 73 65 20 73 74 61 |.select |case sta|
|00000f60| 74 65 12 63 61 73 65 20 | 6b 4e 6f 72 6d 61 6c 5f |te.case |kNormal_|
|00000f70| 73 74 61 74 65 11 73 65 | 6c 65 63 74 20 63 61 73 |state.se|lect cas|
|00000f80| 65 20 73 74 79 6c 65 06 | 63 61 73 65 20 30 18 67 |e style.|case 0.g|
|00000f90| 2e 66 6f 72 65 43 6f 6c | 6f 72 20 3d 20 52 47 42 |.foreCol|or = RGB|
|00000fa0| 28 30 2c 30 2c 30 29 29 | 67 2e 64 72 61 77 52 65 |(0,0,0))|g.drawRe|
|00000fb0| 63 74 20 30 2c 30 2c 6d | 65 2e 77 69 64 74 68 20 |ct 0,0,m|e.width |
|00000fc0| 2d 20 31 2c 6d 65 2e 68 | 65 69 67 68 74 20 2d 20 |- 1,me.h|eight - |
|00000fd0| 31 17 67 2e 66 6f 72 65 | 43 6f 6c 6f 72 20 3d 20 |1.g.fore|Color = |
|00000fe0| 66 69 6c 6c 43 6f 6c 6f | 72 29 67 2e 66 69 6c 6c |fillColo|r)g.fill|
|00000ff0| 52 65 63 74 20 31 2c 31 | 2c 6d 65 2e 77 69 64 74 |Rect 1,1|,me.widt|
|00001000| 68 20 2d 20 32 2c 6d 65 | 2e 68 65 69 67 68 74 20 |h - 2,me|.height |
|00001010| 2d 20 32 1d 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |- 2.g.fo|reColor |
|00001020| 3d 20 6c 69 67 68 74 54 | 69 6e 67 65 43 6f 6c 6f |= lightT|ingeColo|
|00001030| 72 1d 67 2e 64 72 61 77 | 4c 69 6e 65 20 31 2c 31 |r.g.draw|Line 1,1|
|00001040| 2c 6d 65 2e 77 69 64 74 | 68 20 2d 20 32 2c 31 1e |,me.widt|h - 2,1.|
|00001050| 67 2e 64 72 61 77 4c 69 | 6e 65 20 31 2c 31 2c 31 |g.drawLi|ne 1,1,1|
|00001060| 2c 6d 65 2e 68 65 69 67 | 68 74 20 2d 20 32 1c 67 |,me.heig|ht - 2.g|
|00001070| 2e 66 6f 72 65 43 6f 6c | 6f 72 20 3d 20 64 61 72 |.foreCol|or = dar|
|00001080| 6b 54 69 6e 67 65 43 6f | 6c 6f 72 2c 67 2e 64 72 |kTingeCo|lor,g.dr|
|00001090| 61 77 4c 69 6e 65 20 31 | 2c 68 65 69 67 68 74 20 |awLine 1|,height |
|000010a0| 2d 20 32 2c 77 69 64 74 | 68 20 2d 20 32 2c 68 65 |- 2,widt|h - 2,he|
|000010b0| 69 67 68 74 20 2d 20 32 | 2b 67 2e 64 72 61 77 4c |ight - 2|+g.drawL|
|000010c0| 69 6e 65 20 77 69 64 74 | 68 20 2d 20 32 2c 32 2c |ine widt|h - 2,2,|
|000010d0| 77 69 64 74 68 20 2d 20 | 32 2c 68 65 69 67 68 74 |width - |2,height|
|000010e0| 20 2d 20 32 00 36 50 52 | 65 6e 64 65 72 41 72 72 | - 2.6PR|enderArr|
|000010f0| 6f 77 50 69 63 74 75 72 | 65 28 66 61 6c 73 65 2c |owPictur|e(false,|
|00001100| 77 69 64 74 68 20 2d 20 | 31 38 2c 68 65 69 67 68 |width - |18,heigh|
|00001110| 74 20 2f 20 32 20 2d 20 | 32 2e 35 29 06 63 61 73 |t / 2 - |2.5).cas|
|00001120| 65 20 31 18 67 2e 46 6f | 72 65 43 6f 6c 6f 72 20 |e 1.g.Fo|reColor |
|00001130| 3d 20 52 47 42 28 30 2c | 30 2c 30 29 23 67 2e 64 |= RGB(0,|0,0)#g.d|
|00001140| 72 61 77 52 65 63 74 20 | 30 2c 30 2c 77 69 64 74 |rawRect |0,0,widt|
|00001150| 68 20 2d 20 32 2c 68 65 | 69 67 68 74 20 2d 20 32 |h - 2,he|ight - 2|
|00001160| 28 67 2e 64 72 61 77 4c | 69 6e 65 20 31 2c 68 65 |(g.drawL|ine 1,he|
|00001170| 69 67 68 74 20 2d 20 31 | 2c 77 69 64 74 68 2c 68 |ight - 1|,width,h|
|00001180| 65 69 67 68 74 20 2d 20 | 31 28 67 2e 64 72 61 77 |eight - |1(g.draw|
|00001190| 4c 69 6e 65 20 77 69 64 | 74 68 20 2d 20 31 2c 31 |Line wid|th - 1,1|
|000011a0| 2c 77 69 64 74 68 20 2d | 20 31 2c 20 68 65 69 67 |,width -| 1, heig|
|000011b0| 68 74 00 1e 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |ht..g.fo|reColor |
|000011c0| 3d 20 52 47 42 28 32 35 | 35 2c 32 35 35 2c 32 35 |= RGB(25|5,255,25|
|000011d0| 35 29 23 67 2e 66 69 6c | 6c 52 65 63 74 20 31 2c |5)#g.fil|lRect 1,|
|000011e0| 31 2c 77 69 64 74 68 20 | 2d 20 33 2c 68 65 69 67 |1,width |- 3,heig|
|000011f0| 68 74 20 2d 20 33 00 36 | 50 52 65 6e 64 65 72 41 |ht - 3.6|PRenderA|
|00001200| 72 72 6f 77 50 69 63 74 | 75 72 65 28 66 61 6c 73 |rrowPict|ure(fals|
|00001210| 65 2c 77 69 64 74 68 20 | 2d 20 31 38 2c 68 65 69 |e,width |- 18,hei|
|00001220| 67 68 74 20 2f 20 32 20 | 2d 20 32 2e 35 29 00 06 |ght / 2 |- 2.5)..|
|00001230| 63 61 73 65 20 32 1e 67 | 2e 66 6f 72 65 43 6f 6c |case 2.g|.foreCol|
|00001240| 6f 72 20 3d 20 52 47 42 | 28 32 32 31 2c 32 32 31 |or = RGB|(221,221|
|00001250| 2c 32 32 31 29 1b 67 2e | 66 69 6c 6c 52 65 63 74 |,221).g.|fillRect|
|00001260| 20 30 2c 30 2c 77 69 64 | 74 68 2c 68 65 69 67 68 | 0,0,wid|th,heigh|
|00001270| 74 00 00 18 67 2e 46 6f | 72 65 43 6f 6c 6f 72 20 |t...g.Fo|reColor |
|00001280| 3d 20 52 47 42 28 30 2c | 30 2c 30 29 1a 67 2e 64 |= RGB(0,|0,0).g.d|
|00001290| 72 61 77 4c 69 6e 65 20 | 32 2c 30 2c 77 69 64 74 |rawLine |2,0,widt|
|000012a0| 68 20 2d 20 33 2c 30 1b | 67 2e 64 72 61 77 4c 69 |h - 3,0.|g.drawLi|
|000012b0| 6e 65 20 30 2c 32 2c 30 | 2c 68 65 69 67 68 74 20 |ne 0,2,0|,height |
|000012c0| 2d 20 33 19 67 2e 70 69 | 78 65 6c 28 31 2c 31 29 |- 3.g.pi|xel(1,1)|
|000012d0| 20 3d 20 52 47 42 28 30 | 2c 30 2c 30 29 22 67 2e | = RGB(0|,0,0)"g.|
|000012e0| 70 69 78 65 6c 28 31 2c | 68 65 69 67 68 74 20 2d |pixel(1,|height -|
|000012f0| 20 32 29 20 3d 20 52 47 | 42 28 30 2c 30 2c 30 29 | 2) = RG|B(0,0,0)|
|00001300| 2c 67 2e 64 72 61 77 4c | 69 6e 65 20 32 2c 68 65 |,g.drawL|ine 2,he|
|00001310| 69 67 68 74 20 2d 20 31 | 2c 77 69 64 74 68 20 2d |ight - 1|,width -|
|00001320| 20 33 2c 68 65 69 67 68 | 74 20 2d 20 31 2b 67 2e | 3,heigh|t - 1+g.|
|00001330| 64 72 61 77 4c 69 6e 65 | 20 77 69 64 74 68 20 2d |drawLine| width -|
|00001340| 20 31 2c 32 2c 77 69 64 | 74 68 20 2d 20 31 2c 68 | 1,2,wid|th - 1,h|
|00001350| 65 69 67 68 74 20 2d 20 | 33 21 67 2e 70 69 78 65 |eight - |3!g.pixe|
|00001360| 6c 28 77 69 64 74 68 20 | 2d 20 32 2c 31 29 20 3d |l(width |- 2,1) =|
|00001370| 20 52 47 42 28 30 2c 30 | 2c 30 29 2a 67 2e 70 69 | RGB(0,0|,0)*g.pi|
|00001380| 78 65 6c 28 77 69 64 74 | 68 20 2d 20 32 2c 68 65 |xel(widt|h - 2,he|
|00001390| 69 67 68 74 20 2d 20 32 | 29 20 3d 20 52 47 42 28 |ight - 2|) = RGB(|
|000013a0| 30 2c 30 2c 30 29 00 00 | 1e 67 2e 66 6f 72 65 43 |0,0,0)..|.g.foreC|
|000013b0| 6f 6c 6f 72 20 3d 20 52 | 47 42 28 32 35 35 2c 32 |olor = R|GB(255,2|
|000013c0| 35 35 2c 32 35 35 29 1b | 67 2e 64 72 61 77 4c 69 |55,255).|g.drawLi|
|000013d0| 6e 65 20 32 2c 31 2c 77 | 69 64 74 68 20 2d 20 32 |ne 2,1,w|idth - 2|
|000013e0| 32 2c 31 1b 67 2e 64 72 | 61 77 4c 69 6e 65 20 32 |2,1.g.dr|awLine 2|
|000013f0| 2c 31 2c 31 2c 68 65 69 | 67 68 74 20 2d 20 33 00 |,1,1,hei|ght - 3.|
|00001400| 1e 67 2e 66 6f 72 65 43 | 6f 6c 6f 72 20 3d 20 52 |.g.foreC|olor = R|
|00001410| 47 42 28 31 37 30 2c 31 | 37 30 2c 31 37 30 29 2d |GB(170,1|70,170)-|
|00001420| 67 2e 64 72 61 77 6c 69 | 6e 65 20 32 2c 68 65 69 |g.drawli|ne 2,hei|
|00001430| 67 68 74 20 2d 20 32 2c | 77 69 64 74 68 20 2d 20 |ght - 2,|width - |
|00001440| 32 31 2c 68 65 69 67 68 | 74 20 2d 20 32 2d 67 2e |21,heigh|t - 2-g.|
|00001450| 64 72 61 77 6c 69 6e 65 | 20 77 69 64 74 68 20 2d |drawline| width -|
|00001460| 20 32 32 2c 32 2c 77 69 | 64 74 68 20 2d 20 32 32 | 22,2,wi|dth - 22|
|00001470| 2c 68 65 69 67 68 74 20 | 2d 20 32 00 00 1e 67 2e |,height |- 2...g.|
|00001480| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |foreColo|r = RGB(|
|00001490| 32 35 35 2c 32 35 35 2c | 32 35 35 29 23 67 2e 64 |255,255,|255)#g.d|
|000014a0| 72 61 77 4c 69 6e 65 20 | 77 69 64 74 68 20 2d 20 |rawLine |width - |
|000014b0| 32 30 2c 32 2c 77 69 64 | 74 68 20 2d 20 32 2c 32 |20,2,wid|th - 2,2|
|000014c0| 2d 67 2e 64 72 61 77 4c | 69 6e 65 20 77 69 64 74 |-g.drawL|ine widt|
|000014d0| 68 20 2d 20 32 30 2c 32 | 2c 77 69 64 74 68 20 2d |h - 20,2|,width -|
|000014e0| 20 32 30 2c 68 65 69 67 | 68 74 20 2d 20 33 00 1e | 20,heig|ht - 3..|
|000014f0| 67 2e 66 6f 72 65 43 6f | 6c 6f 72 20 3d 20 52 47 |g.foreCo|lor = RG|
|00001500| 42 28 31 37 30 2c 31 37 | 30 2c 31 37 30 29 35 67 |B(170,17|0,170)5g|
|00001510| 2e 64 72 61 77 4c 69 6e | 65 20 77 69 64 74 68 20 |.drawLin|e width |
|00001520| 2d 20 32 31 2c 68 65 69 | 67 68 74 20 2d 20 33 2c |- 21,hei|ght - 3,|
|00001530| 77 69 64 74 68 20 2d 20 | 32 2c 68 65 69 67 68 74 |width - |2,height|
|00001540| 20 2d 20 33 2b 67 2e 64 | 72 61 77 4c 69 6e 65 20 | - 3+g.d|rawLine |
|00001550| 77 69 64 74 68 20 2d 20 | 33 2c 34 2c 77 69 64 74 |width - |3,4,widt|
|00001560| 68 20 2d 20 33 2c 68 65 | 69 67 68 74 20 2d 20 33 |h - 3,he|ight - 3|
|00001570| 00 1e 67 2e 66 6f 72 65 | 43 6f 6c 6f 72 20 3d 20 |..g.fore|Color = |
|00001580| 52 47 42 28 31 31 39 2c | 31 31 39 2c 31 31 39 29 |RGB(119,|119,119)|
|00001590| 35 67 2e 64 72 61 77 4c | 69 6e 65 20 77 69 64 74 |5g.drawL|ine widt|
|000015a0| 68 20 2d 20 32 30 2c 68 | 65 69 67 68 74 20 2d 20 |h - 20,h|eight - |
|000015b0| 32 2c 77 69 64 74 68 20 | 2d 20 33 2c 68 65 69 67 |2,width |- 3,heig|
|000015c0| 68 74 20 2d 20 32 2b 67 | 2e 64 72 61 77 4c 69 6e |ht - 2+g|.drawLin|
|000015d0| 65 20 77 69 64 74 68 20 | 2d 20 32 2c 33 2c 77 69 |e width |- 2,3,wi|
|000015e0| 64 74 68 20 2d 20 32 2c | 68 65 69 67 68 74 20 2d |dth - 2,|height -|
|000015f0| 20 33 00 36 50 52 65 6e | 64 65 72 41 72 72 6f 77 | 3.6PRen|derArrow|
|00001600| 50 69 63 74 75 72 65 28 | 66 61 6c 73 65 2c 77 69 |Picture(|false,wi|
|00001610| 64 74 68 20 2d 20 31 36 | 2c 68 65 69 67 68 74 20 |dth - 16|,height |
|00001620| 2f 20 32 20 2d 20 32 2e | 35 29 00 03 65 6e 64 13 |/ 2 - 2.|5)..end.|
|00001630| 63 61 73 65 20 6b 50 72 | 65 73 73 65 64 5f 73 74 |case kPr|essed_st|
|00001640| 61 74 65 11 73 65 6c 65 | 63 74 20 63 61 73 65 20 |ate.sele|ct case |
|00001650| 73 74 79 6c 65 06 63 61 | 73 65 20 30 18 67 2e 66 |style.ca|se 0.g.f|
|00001660| 6f 72 65 43 6f 6c 6f 72 | 20 3d 20 52 47 42 28 30 |oreColor| = RGB(0|
|00001670| 2c 30 2c 30 29 29 67 2e | 64 72 61 77 52 65 63 74 |,0,0))g.|drawRect|
|00001680| 20 30 2c 30 2c 6d 65 2e | 77 69 64 74 68 20 2d 20 | 0,0,me.|width - |
|00001690| 31 2c 6d 65 2e 68 65 69 | 67 68 74 20 2d 20 31 20 |1,me.hei|ght - 1 |
|000016a0| 67 2e 66 6f 72 65 43 6f | 6c 6f 72 20 3d 20 50 44 |g.foreCo|lor = PD|
|000016b0| 61 72 6b 65 6e 28 66 69 | 6c 6c 43 6f 6c 6f 72 29 |arken(fi|llColor)|
|000016c0| 29 67 2e 66 69 6c 6c 52 | 65 63 74 20 31 2c 31 2c |)g.fillR|ect 1,1,|
|000016d0| 6d 65 2e 77 69 64 74 68 | 20 2d 20 32 2c 6d 65 2e |me.width| - 2,me.|
|000016e0| 68 65 69 67 68 74 20 2d | 20 32 25 67 2e 66 6f 72 |height -| 2%g.for|
|000016f0| 65 43 6f 6c 6f 72 20 3d | 20 50 44 61 72 6b 65 6e |eColor =| PDarken|
|00001700| 28 64 61 72 6b 54 69 6e | 67 65 43 6f 6c 6f 72 29 |(darkTin|geColor)|
|00001710| 1d 67 2e 64 72 61 77 4c | 69 6e 65 20 31 2c 31 2c |.g.drawL|ine 1,1,|
|00001720| 6d 65 2e 77 69 64 74 68 | 20 2d 20 32 2c 31 1e 67 |me.width| - 2,1.g|
|00001730| 2e 64 72 61 77 4c 69 6e | 65 20 31 2c 31 2c 31 2c |.drawLin|e 1,1,1,|
|00001740| 6d 65 2e 68 65 69 67 68 | 74 20 2d 20 32 17 67 2e |me.heigh|t - 2.g.|
|00001750| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 46 69 6c 6c |foreColo|r = Fill|
|00001760| 43 6f 6c 6f 72 2c 67 2e | 64 72 61 77 4c 69 6e 65 |Color,g.|drawLine|
|00001770| 20 31 2c 68 65 69 67 68 | 74 20 2d 20 32 2c 77 69 | 1,heigh|t - 2,wi|
|00001780| 64 74 68 20 2d 20 32 2c | 68 65 69 67 68 74 20 2d |dth - 2,|height -|
|00001790| 20 32 2b 67 2e 64 72 61 | 77 4c 69 6e 65 20 77 69 | 2+g.dra|wLine wi|
|000017a0| 64 74 68 20 2d 20 32 2c | 32 2c 77 69 64 74 68 20 |dth - 2,|2,width |
|000017b0| 2d 20 32 2c 68 65 69 67 | 68 74 20 2d 20 32 00 19 |- 2,heig|ht - 2..|
|000017c0| 27 67 2e 66 6f 72 65 43 | 6f 6c 6f 72 20 3d 20 52 |'g.foreC|olor = R|
|000017d0| 47 42 28 30 2c 30 2c 30 | 29 35 27 67 2e 64 72 61 |GB(0,0,0|)5'g.dra|
|000017e0| 77 53 74 72 69 6e 67 20 | 74 65 78 74 2c 38 2c 68 |wString |text,8,h|
|000017f0| 65 69 67 68 74 20 2d 20 | 67 72 61 70 68 69 63 73 |eight - |graphics|
|00001800| 2e 74 65 78 74 48 65 69 | 67 68 74 20 2f 20 33 00 |.textHei|ght / 3.|
|00001810| 35 50 52 65 6e 64 65 72 | 41 72 72 6f 77 50 69 63 |5PRender|ArrowPic|
|00001820| 74 75 72 65 28 74 72 75 | 65 2c 77 69 64 74 68 20 |ture(tru|e,width |
|00001830| 2d 20 31 38 2c 68 65 69 | 67 68 74 20 2f 20 32 20 |- 18,hei|ght / 2 |
|00001840| 2d 20 32 2e 35 29 06 63 | 61 73 65 20 31 18 67 2e |- 2.5).c|ase 1.g.|
|00001850| 46 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |ForeColo|r = RGB(|
|00001860| 30 2c 30 2c 30 29 23 67 | 2e 64 72 61 77 52 65 63 |0,0,0)#g|.drawRec|
|00001870| 74 20 30 2c 30 2c 77 69 | 64 74 68 20 2d 20 32 2c |t 0,0,wi|dth - 2,|
|00001880| 68 65 69 67 68 74 20 2d | 20 32 28 67 2e 64 72 61 |height -| 2(g.dra|
|00001890| 77 4c 69 6e 65 20 31 2c | 68 65 69 67 68 74 20 2d |wLine 1,|height -|
|000018a0| 20 31 2c 77 69 64 74 68 | 2c 68 65 69 67 68 74 20 | 1,width|,height |
|000018b0| 2d 20 31 28 67 2e 64 72 | 61 77 4c 69 6e 65 20 77 |- 1(g.dr|awLine w|
|000018c0| 69 64 74 68 20 2d 20 31 | 2c 31 2c 77 69 64 74 68 |idth - 1|,1,width|
|000018d0| 20 2d 20 31 2c 20 68 65 | 69 67 68 74 00 18 67 2e | - 1, he|ight..g.|
|000018e0| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |foreColo|r = RGB(|
|000018f0| 30 2c 30 2c 30 29 23 67 | 2e 66 69 6c 6c 52 65 63 |0,0,0)#g|.fillRec|
|00001900| 74 20 31 2c 31 2c 77 69 | 64 74 68 20 2d 20 33 2c |t 1,1,wi|dth - 3,|
|00001910| 68 65 69 67 68 74 20 2d | 20 33 00 1f 27 67 2e 66 |height -| 3..'g.f|
|00001920| 6f 72 65 43 6f 6c 6f 72 | 20 3d 20 52 47 42 28 32 |oreColor| = RGB(2|
|00001930| 35 35 2c 32 35 35 2c 32 | 35 35 29 35 27 67 2e 64 |55,255,2|55)5'g.d|
|00001940| 72 61 77 53 74 72 69 6e | 67 20 74 65 78 74 2c 38 |rawStrin|g text,8|
|00001950| 2c 68 65 69 67 68 74 20 | 2d 20 67 72 61 70 68 69 |,height |- graphi|
|00001960| 63 73 2e 74 65 78 74 48 | 65 69 67 68 74 20 2f 20 |cs.textH|eight / |
|00001970| 33 00 35 50 52 65 6e 64 | 65 72 41 72 72 6f 77 50 |3.5PRend|erArrowP|
|00001980| 69 63 74 75 72 65 28 74 | 72 75 65 2c 77 69 64 74 |icture(t|rue,widt|
|00001990| 68 20 2d 20 31 38 2c 68 | 65 69 67 68 74 20 2f 20 |h - 18,h|eight / |
|000019a0| 32 20 2d 20 32 2e 35 29 | 00 06 63 61 73 65 20 32 |2 - 2.5)|..case 2|
|000019b0| 00 1e 67 2e 66 6f 72 65 | 43 6f 6c 6f 72 20 3d 20 |..g.fore|Color = |
|000019c0| 52 47 42 28 31 30 32 2c | 31 30 32 2c 31 30 32 29 |RGB(102,|102,102)|
|000019d0| 23 67 2e 66 69 6c 6c 52 | 65 63 74 20 31 2c 31 2c |#g.fillR|ect 1,1,|
|000019e0| 77 69 64 74 68 20 2d 20 | 33 2c 68 65 69 67 68 74 |width - |3,height|
|000019f0| 20 2d 20 33 00 00 18 67 | 2e 46 6f 72 65 43 6f 6c | - 3...g|.ForeCol|
|00001a00| 6f 72 20 3d 20 52 47 42 | 28 30 2c 30 2c 30 29 1a |or = RGB|(0,0,0).|
|00001a10| 67 2e 64 72 61 77 4c 69 | 6e 65 20 32 2c 30 2c 77 |g.drawLi|ne 2,0,w|
|00001a20| 69 64 74 68 20 2d 20 33 | 2c 30 1b 67 2e 64 72 61 |idth - 3|,0.g.dra|
|00001a30| 77 4c 69 6e 65 20 30 2c | 32 2c 30 2c 68 65 69 67 |wLine 0,|2,0,heig|
|00001a40| 68 74 20 2d 20 33 19 67 | 2e 70 69 78 65 6c 28 31 |ht - 3.g|.pixel(1|
|00001a50| 2c 31 29 20 3d 20 52 47 | 42 28 30 2c 30 2c 30 29 |,1) = RG|B(0,0,0)|
|00001a60| 22 67 2e 70 69 78 65 6c | 28 31 2c 68 65 69 67 68 |"g.pixel|(1,heigh|
|00001a70| 74 20 2d 20 32 29 20 3d | 20 52 47 42 28 30 2c 30 |t - 2) =| RGB(0,0|
|00001a80| 2c 30 29 2c 67 2e 64 72 | 61 77 4c 69 6e 65 20 32 |,0),g.dr|awLine 2|
|00001a90| 2c 68 65 69 67 68 74 20 | 2d 20 31 2c 77 69 64 74 |,height |- 1,widt|
|00001aa0| 68 20 2d 20 33 2c 68 65 | 69 67 68 74 20 2d 20 31 |h - 3,he|ight - 1|
|00001ab0| 2b 67 2e 64 72 61 77 4c | 69 6e 65 20 77 69 64 74 |+g.drawL|ine widt|
|00001ac0| 68 20 2d 20 31 2c 32 2c | 77 69 64 74 68 20 2d 20 |h - 1,2,|width - |
|00001ad0| 31 2c 68 65 69 67 68 74 | 20 2d 20 33 21 67 2e 70 |1,height| - 3!g.p|
|00001ae0| 69 78 65 6c 28 77 69 64 | 74 68 20 2d 20 32 2c 31 |ixel(wid|th - 2,1|
|00001af0| 29 20 3d 20 52 47 42 28 | 30 2c 30 2c 30 29 2a 67 |) = RGB(|0,0,0)*g|
|00001b00| 2e 70 69 78 65 6c 28 77 | 69 64 74 68 20 2d 20 32 |.pixel(w|idth - 2|
|00001b10| 2c 68 65 69 67 68 74 20 | 2d 20 32 29 20 3d 20 52 |,height |- 2) = R|
|00001b20| 47 42 28 30 2c 30 2c 30 | 29 00 00 1b 67 2e 66 6f |GB(0,0,0|)...g.fo|
|00001b30| 72 65 43 6f 6c 6f 72 20 | 3d 20 52 47 42 28 38 35 |reColor |= RGB(85|
|00001b40| 2c 38 35 2c 38 35 29 1b | 67 2e 64 72 61 77 4c 69 |,85,85).|g.drawLi|
|00001b50| 6e 65 20 32 2c 31 2c 77 | 69 64 74 68 20 2d 20 32 |ne 2,1,w|idth - 2|
|00001b60| 32 2c 31 1b 67 2e 64 72 | 61 77 4c 69 6e 65 20 32 |2,1.g.dr|awLine 2|
|00001b70| 2c 31 2c 31 2c 68 65 69 | 67 68 74 20 2d 20 33 00 |,1,1,hei|ght - 3.|
|00001b80| 1e 67 2e 66 6f 72 65 43 | 6f 6c 6f 72 20 3d 20 52 |.g.foreC|olor = R|
|00001b90| 47 42 28 31 31 39 2c 31 | 31 39 2c 31 31 39 29 2d |GB(119,1|19,119)-|
|00001ba0| 67 2e 64 72 61 77 6c 69 | 6e 65 20 32 2c 68 65 69 |g.drawli|ne 2,hei|
|00001bb0| 67 68 74 20 2d 20 32 2c | 77 69 64 74 68 20 2d 20 |ght - 2,|width - |
|00001bc0| 32 31 2c 68 65 69 67 68 | 74 20 2d 20 32 2d 67 2e |21,heigh|t - 2-g.|
|00001bd0| 64 72 61 77 6c 69 6e 65 | 20 77 69 64 74 68 20 2d |drawline| width -|
|00001be0| 20 32 32 2c 32 2c 77 69 | 64 74 68 20 2d 20 32 32 | 22,2,wi|dth - 22|
|00001bf0| 2c 68 65 69 67 68 74 20 | 2d 20 32 00 00 1b 67 2e |,height |- 2...g.|
|00001c00| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |foreColo|r = RGB(|
|00001c10| 36 38 2c 36 38 2c 36 38 | 29 23 67 2e 64 72 61 77 |68,68,68|)#g.draw|
|00001c20| 4c 69 6e 65 20 77 69 64 | 74 68 20 2d 20 32 30 2c |Line wid|th - 20,|
|00001c30| 31 2c 77 69 64 74 68 20 | 2d 20 33 2c 31 2b 67 2e |1,width |- 3,1+g.|
|00001c40| 64 72 61 77 4c 69 6e 65 | 20 77 69 64 74 68 20 2d |drawLine| width -|
|00001c50| 20 33 2c 32 2c 77 69 64 | 74 68 20 2d 20 33 2c 68 | 3,2,wid|th - 3,h|
|00001c60| 65 69 67 68 74 20 2d 20 | 32 00 1b 67 2e 66 6f 72 |eight - |2..g.for|
|00001c70| 65 43 6f 6c 6f 72 20 3d | 20 52 47 42 28 38 35 2c |eColor =| RGB(85,|
|00001c80| 38 35 2c 38 35 29 23 67 | 2e 64 72 61 77 4c 69 6e |85,85)#g|.drawLin|
|00001c90| 65 20 77 69 64 74 68 20 | 2d 20 32 30 2c 32 2c 77 |e width |- 20,2,w|
|00001ca0| 69 64 74 68 20 2d 20 32 | 2c 32 2d 67 2e 64 72 61 |idth - 2|,2-g.dra|
|00001cb0| 77 4c 69 6e 65 20 77 69 | 64 74 68 20 2d 20 32 30 |wLine wi|dth - 20|
|00001cc0| 2c 32 2c 77 69 64 74 68 | 20 2d 20 32 30 2c 68 65 |,2,width| - 20,he|
|00001cd0| 69 67 68 74 20 2d 20 33 | 00 1e 67 2e 66 6f 72 65 |ight - 3|..g.fore|
|00001ce0| 43 6f 6c 6f 72 20 3d 20 | 52 47 42 28 31 31 39 2c |Color = |RGB(119,|
|00001cf0| 31 31 39 2c 31 31 39 29 | 35 67 2e 64 72 61 77 4c |119,119)|5g.drawL|
|00001d00| 69 6e 65 20 77 69 64 74 | 68 20 2d 20 32 31 2c 68 |ine widt|h - 21,h|
|00001d10| 65 69 67 68 74 20 2d 20 | 33 2c 77 69 64 74 68 20 |eight - |3,width |
|00001d20| 2d 20 32 2c 68 65 69 67 | 68 74 20 2d 20 33 2b 67 |- 2,heig|ht - 3+g|
|00001d30| 2e 64 72 61 77 4c 69 6e | 65 20 77 69 64 74 68 20 |.drawLin|e width |
|00001d40| 2d 20 33 2c 34 2c 77 69 | 64 74 68 20 2d 20 33 2c |- 3,4,wi|dth - 3,|
|00001d50| 68 65 69 67 68 74 20 2d | 20 33 00 1e 67 2e 66 6f |height -| 3..g.fo|
|00001d60| 72 65 43 6f 6c 6f 72 20 | 3d 20 52 47 42 28 31 33 |reColor |= RGB(13|
|00001d70| 36 2c 31 33 36 2c 31 33 | 36 29 35 67 2e 64 72 61 |6,136,13|6)5g.dra|
|00001d80| 77 4c 69 6e 65 20 77 69 | 64 74 68 20 2d 20 32 30 |wLine wi|dth - 20|
|00001d90| 2c 68 65 69 67 68 74 20 | 2d 20 32 2c 77 69 64 74 |,height |- 2,widt|
|00001da0| 68 20 2d 20 33 2c 68 65 | 69 67 68 74 20 2d 20 32 |h - 3,he|ight - 2|
|00001db0| 2b 67 2e 64 72 61 77 4c | 69 6e 65 20 77 69 64 74 |+g.drawL|ine widt|
|00001dc0| 68 20 2d 20 32 2c 33 2c | 77 69 64 74 68 20 2d 20 |h - 2,3,|width - |
|00001dd0| 32 2c 68 65 69 67 68 74 | 20 2d 20 33 00 35 50 52 |2,height| - 3.5PR|
|00001de0| 65 6e 64 65 72 41 72 72 | 6f 77 50 69 63 74 75 72 |enderArr|owPictur|
|00001df0| 65 28 74 72 75 65 2c 77 | 69 64 74 68 20 2d 20 31 |e(true,w|idth - 1|
|00001e00| 36 2c 68 65 69 67 68 74 | 20 2f 20 32 20 2d 20 32 |6,height| / 2 - 2|
|00001e10| 2e 35 29 00 03 65 6e 64 | 06 63 61 73 65 20 32 00 |.5)..end|.case 2.|
|00001e20| 03 65 6e 64 00 28 69 63 | 6f 6e 49 44 20 3d 20 6d |.end.(ic|onID = m|
|00001e30| 65 2e 50 47 65 74 49 74 | 65 6d 49 63 6f 6e 28 6d |e.PGetIt|emIcon(m|
|00001e40| 65 2e 4c 69 73 74 49 6e | 64 65 78 28 29 29 15 69 |e.ListIn|dex()).i|
|00001e50| 66 20 69 63 6f 6e 49 44 | 20 3c 3e 20 32 35 36 20 |f iconID| <> 256 |
|00001e60| 74 68 65 6e 27 69 63 6f | 6e 20 3d 20 41 70 70 2e |then'ico|n = App.|
|00001e70| 52 65 73 6f 75 72 63 65 | 46 6f 72 6b 2e 67 65 74 |Resource|Fork.get|
|00001e80| 43 49 43 4e 28 69 63 6f | 6e 49 44 29 13 69 66 20 |CICN(ico|nID).if |
|00001e90| 69 63 6f 6e 20 3c 3e 20 | 6e 69 6c 20 74 68 65 6e |icon <> |nil then|
|00001ea0| 1a 63 61 70 74 69 6f 6e | 58 20 3d 20 31 36 20 2b |.caption|X = 16 +|
|00001eb0| 20 69 63 6f 6e 2e 57 69 | 64 74 68 34 67 2e 64 72 | icon.Wi|dth4g.dr|
|00001ec0| 61 77 50 69 63 74 75 72 | 65 20 69 63 6f 6e 2c 38 |awPictur|e icon,8|
|00001ed0| 2c 28 6d 65 2e 68 65 69 | 67 68 74 2f 32 29 20 2d |,(me.hei|ght/2) -|
|00001ee0| 20 28 69 63 6f 6e 2e 68 | 65 69 67 68 74 2f 32 29 | (icon.h|eight/2)|
|00001ef0| 03 65 6e 64 03 65 6e 64 | 00 19 69 66 28 6d 65 2e |.end.end|..if(me.|
|00001f00| 6c 69 73 74 43 6f 75 6e | 74 20 3e 20 30 29 20 74 |listCoun|t > 0) t|
|00001f10| 68 65 6e 18 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |hen.g.fo|reColor |
|00001f20| 3d 20 52 47 42 28 30 2c | 30 2c 30 29 21 67 2e 62 |= RGB(0,|0,0)!g.b|
|00001f30| 6f 6c 64 20 3d 20 6d 65 | 2e 52 6f 77 42 6f 6c 64 |old = me|.RowBold|
|00001f40| 28 6d 65 2e 4c 69 73 74 | 49 6e 64 65 78 29 25 67 |(me.List|Index)%g|
|00001f50| 2e 69 74 61 6c 69 63 20 | 3d 20 6d 65 2e 52 6f 77 |.italic |= me.Row|
|00001f60| 49 74 61 6c 69 63 28 6d | 65 2e 4c 69 73 74 49 6e |Italic(m|e.ListIn|
|00001f70| 64 65 78 29 2b 67 2e 75 | 6e 64 65 72 6c 69 6e 65 |dex)+g.u|nderline|
|00001f80| 20 3d 20 6d 65 2e 52 6f | 77 55 6e 64 65 72 6c 69 | = me.Ro|wUnderli|
|00001f90| 6e 65 28 6d 65 2e 4c 69 | 73 74 49 6e 64 65 78 29 |ne(me.Li|stIndex)|
|00001fa0| 3f 67 2e 64 72 61 77 53 | 74 72 69 6e 67 20 74 65 |?g.drawS|tring te|
|00001fb0| 78 74 2c 63 61 70 74 69 | 6f 6e 58 2c 28 68 65 69 |xt,capti|onX,(hei|
|00001fc0| 67 68 74 2f 32 29 20 2b | 20 28 67 72 61 70 68 69 |ght/2) +| (graphi|
|00001fd0| 63 73 2e 74 65 78 74 48 | 65 69 67 68 74 2f 33 29 |cs.textH|eight/3)|
|00001fe0| 03 65 6e 64 07 45 6e 64 | 20 53 75 62 13 50 52 65 |.end.End| Sub.PRe|
|00001ff0| 6e 64 65 72 41 72 72 6f | 77 50 69 63 74 75 72 65 |nderArro|wPicture|
|00002000| 2b 69 6e 76 65 72 74 20 | 61 73 20 62 6f 6f 6c 65 |+invert |as boole|
|00002010| 61 6e 2c 78 20 61 73 20 | 69 6e 74 65 67 65 72 2c |an,x as |integer,|
|00002020| 79 20 61 73 20 69 6e 74 | 65 67 65 72 00 01 12 03 |y as int|eger....|
|00002030| 12 03 14 84 01 53 75 62 | 20 50 52 65 6e 64 65 72 |.....Sub| PRender|
|00002040| 41 72 72 6f 77 50 69 63 | 74 75 72 65 28 69 6e 76 |ArrowPic|ture(inv|
|00002050| 65 72 74 20 61 73 20 62 | 6f 6f 6c 65 61 6e 2c 78 |ert as b|oolean,x|
|00002060| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 79 20 61 73 | as inte|ger,y as|
|00002070| 20 69 6e 74 65 67 65 72 | 29 15 64 69 6d 20 70 74 | integer|).dim pt|
|00002080| 73 28 38 29 20 61 73 20 | 69 6e 74 65 67 65 72 00 |s(8) as |integer.|
|00002090| 0e 70 74 73 28 31 29 20 | 3d 20 30 20 2b 20 78 0e |.pts(1) |= 0 + x.|
|000020a0| 70 74 73 28 32 29 20 3d | 20 30 20 2b 20 79 0e 70 |pts(2) =| 0 + y.p|
|000020b0| 74 73 28 33 29 20 3d 20 | 35 20 2b 20 78 0e 70 74 |ts(3) = |5 + x.pt|
|000020c0| 73 28 34 29 20 3d 20 35 | 20 2b 20 79 0f 70 74 73 |s(4) = 5| + y.pts|
|000020d0| 28 35 29 20 3d 20 31 30 | 20 2b 20 78 0e 70 74 73 |(5) = 10| + x.pts|
|000020e0| 28 36 29 20 3d 20 30 20 | 2b 20 79 0e 70 74 73 28 |(6) = 0 |+ y.pts(|
|000020f0| 37 29 20 3d 20 30 20 2b | 20 78 0e 70 74 73 28 38 |7) = 0 +| x.pts(8|
|00002100| 29 20 3d 20 30 20 2b 20 | 79 00 0e 69 66 20 69 6e |) = 0 + |y..if in|
|00002110| 76 65 72 74 20 74 68 65 | 6e 28 6d 65 2e 67 72 61 |vert the|n(me.gra|
|00002120| 70 68 69 63 73 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |phics.fo|reColor |
|00002130| 3d 20 52 47 42 28 32 35 | 35 2c 32 35 35 2c 32 35 |= RGB(25|5,255,25|
|00002140| 35 29 1b 6d 65 2e 67 72 | 61 70 68 69 63 73 2e 66 |5).me.gr|aphics.f|
|00002150| 69 6c 6c 50 6f 6c 79 67 | 6f 6e 20 70 74 73 04 65 |illPolyg|on pts.e|
|00002160| 6c 73 65 22 6d 65 2e 67 | 72 61 70 68 69 63 73 2e |lse"me.g|raphics.|
|00002170| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |foreColo|r = RGB(|
|00002180| 30 2c 30 2c 30 29 1b 6d | 65 2e 67 72 61 70 68 69 |0,0,0).m|e.graphi|
|00002190| 63 73 2e 66 69 6c 6c 50 | 6f 6c 79 67 6f 6e 20 70 |cs.fillP|olygon p|
|000021a0| 74 73 03 65 6e 64 07 45 | 6e 64 20 53 75 62 04 54 |ts.end.E|nd Sub.T|
|000021b0| 65 78 74 00 06 73 74 72 | 69 6e 67 00 01 00 01 00 |ext..str|ing.....|
|000021c0| 03 19 46 75 6e 63 74 69 | 6f 6e 20 54 65 78 74 28 |..Functi|on Text(|
|000021d0| 29 20 41 73 20 73 74 72 | 69 6e 67 1c 72 65 74 75 |) As str|ing.retu|
|000021e0| 72 6e 20 6d 65 2e 4c 69 | 73 74 28 6d 65 2e 4c 69 |rn me.Li|st(me.Li|
|000021f0| 73 74 69 6e 64 65 78 29 | 0c 45 6e 64 20 46 75 6e |stindex)|.End Fun|
|00002200| 63 74 69 6f 6e 09 4c 69 | 73 74 49 6e 64 65 78 00 |ction.Li|stIndex.|
|00002210| 07 69 6e 74 65 67 65 72 | 00 01 0c 01 0c 03 1f 46 |.integer|.......F|
|00002220| 75 6e 63 74 69 6f 6e 20 | 4c 69 73 74 49 6e 64 65 |unction |ListInde|
|00002230| 78 28 29 20 41 73 20 69 | 6e 74 65 67 65 72 14 72 |x() As i|nteger.r|
|00002240| 65 74 75 72 6e 20 6d 65 | 2e 50 4c 69 73 74 49 6e |eturn me|.PListIn|
|00002250| 64 65 78 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |dex.End |Function|
|00002260| 07 53 65 74 54 65 78 74 | 0e 74 65 78 74 20 61 73 |.SetText|.text as|
|00002270| 20 73 74 72 69 6e 67 00 | 00 02 0a 02 0a 04 1b 53 | string.|.......S|
|00002280| 75 62 20 53 65 74 54 65 | 78 74 28 74 65 78 74 20 |ub SetTe|xt(text |
|00002290| 61 73 20 73 74 72 69 6e | 67 29 1f 6d 65 2e 53 65 |as strin|g).me.Se|
|000022a0| 74 4c 69 73 74 28 6d 65 | 2e 4c 69 73 74 49 6e 64 |tList(me|.ListInd|
|000022b0| 65 78 28 29 2c 74 65 78 | 74 29 14 6d 65 2e 50 52 |ex(),tex|t).me.PR|
|000022c0| 65 6e 64 65 72 43 6f 6e | 74 72 6f 6c 28 30 29 07 |enderCon|trol(0).|
|000022d0| 45 6e 64 20 53 75 62 07 | 53 65 74 4c 69 73 74 1f |End Sub.|SetList.|
|000022e0| 69 74 65 6d 20 61 73 20 | 69 6e 74 65 67 65 72 2c |item as |integer,|
|000022f0| 20 74 65 78 74 20 61 73 | 20 73 74 72 69 6e 67 00 | text as| string.|
|00002300| 00 03 1e 03 1e 06 2c 53 | 75 62 20 53 65 74 4c 69 |......,S|ub SetLi|
|00002310| 73 74 28 69 74 65 6d 20 | 61 73 20 69 6e 74 65 67 |st(item |as integ|
|00002320| 65 72 2c 20 74 65 78 74 | 20 61 73 20 73 74 72 69 |er, text| as stri|
|00002330| 6e 67 29 16 69 66 20 6d | 65 2e 50 4d 65 6e 75 48 |ng).if m|e.PMenuH|
|00002340| 56 61 6c 69 64 20 74 68 | 65 6e a8 01 64 65 63 6c |Valid th|en..decl|
|00002350| 61 72 65 20 73 75 62 20 | 53 65 74 4d 65 6e 75 49 |are sub |SetMenuI|
|00002360| 74 65 6d 54 65 78 74 20 | 6c 69 62 20 22 49 6e 74 |temText |lib "Int|
|00002370| 65 72 66 61 63 65 4c 69 | 62 22 20 28 74 68 65 4d |erfaceLi|b" (theM|
|00002380| 65 6e 75 20 61 73 20 69 | 6e 74 65 67 65 72 2c 69 |enu as i|nteger,i|
|00002390| 74 65 6d 20 61 73 20 69 | 6e 74 65 67 65 72 2c 53 |tem as i|nteger,S|
|000023a0| 74 72 69 6e 67 50 74 72 | 20 61 73 20 50 53 74 72 |tringPtr| as PStr|
|000023b0| 69 6e 67 29 28 53 65 74 | 4d 65 6e 75 49 74 65 6d |ing)(Set|MenuItem|
|000023c0| 54 65 78 74 20 6d 65 2e | 50 4d 65 6e 75 48 61 6e |Text me.|PMenuHan|
|000023d0| 64 6c 65 2c 69 74 65 6d | 2c 74 65 78 74 03 65 6e |dle,item|,text.en|
|000023e0| 64 07 45 6e 64 20 53 75 | 62 0c 53 65 74 4c 69 73 |d.End Su|b.SetLis|
|000023f0| 74 49 6e 64 65 78 0c 6e | 20 61 73 20 69 6e 74 65 |tIndex.n| as inte|
|00002400| 67 65 72 00 00 02 14 02 | 14 04 1e 53 75 62 20 53 |ger.....|...Sub S|
|00002410| 65 74 4c 69 73 74 49 6e | 64 65 78 28 6e 20 61 73 |etListIn|dex(n as|
|00002420| 20 69 6e 74 65 67 65 72 | 29 11 6d 65 2e 50 4c 69 | integer|).me.PLi|
|00002430| 73 74 49 6e 64 65 78 20 | 3d 20 6e 14 6d 65 2e 50 |stIndex |= n.me.P|
|00002440| 52 65 6e 64 65 72 43 6f | 6e 74 72 6f 6c 28 30 29 |RenderCo|ntrol(0)|
|00002450| 07 45 6e 64 20 53 75 62 | 10 50 47 65 74 55 6e 69 |.End Sub|.PGetUni|
|00002460| 71 75 65 4d 65 6e 75 49 | 44 00 07 69 6e 74 65 67 |queMenuI|D..integ|
|00002470| 65 72 00 0f 04 0f 04 11 | 26 46 75 6e 63 74 69 6f |er......|&Functio|
|00002480| 6e 20 50 47 65 74 55 6e | 69 71 75 65 4d 65 6e 75 |n PGetUn|iqueMenu|
|00002490| 49 44 28 29 20 41 73 20 | 69 6e 74 65 67 65 72 11 |ID() As |integer.|
|000024a0| 64 69 6d 20 69 64 20 61 | 73 20 69 6e 74 65 67 65 |dim id a|s intege|
|000024b0| 72 14 64 69 6d 20 68 4d | 65 6e 75 20 61 73 20 69 |r.dim hM|enu as i|
|000024c0| 6e 74 65 67 65 72 00 a0 | 01 64 65 63 6c 61 72 65 |nteger..|.declare|
|000024d0| 20 66 75 6e 63 74 69 6f | 6e 20 47 65 74 4d 65 6e | functio|n GetMen|
|000024e0| 75 48 61 6e 64 6c 65 20 | 4c 69 62 20 22 49 6e 74 |uHandle |Lib "Int|
|000024f0| 65 72 66 61 63 65 4c 69 | 62 22 20 28 6d 65 6e 75 |erfaceLi|b" (menu|
|00002500| 49 44 20 61 73 20 53 68 | 6f 72 74 29 20 61 73 20 |ID as Sh|ort) as |
|00002510| 49 6e 74 65 67 65 72 20 | 49 6e 6c 69 6e 65 36 38 |Integer |Inline68|
|00002520| 4b 28 22 41 39 34 39 22 | 29 00 09 69 64 20 3d 20 |K("A949"|)..id = |
|00002530| 31 30 30 30 00 0a 77 68 | 69 6c 65 20 74 72 75 65 |1000..wh|ile true|
|00002540| 19 68 4d 65 6e 75 20 3d | 20 47 65 74 4d 65 6e 75 |.hMenu =| GetMenu|
|00002550| 48 61 6e 64 6c 65 28 69 | 64 29 11 69 66 20 68 4d |Handle(i|d).if hM|
|00002560| 65 6e 75 20 3d 20 30 20 | 74 68 65 6e 09 72 65 74 |enu = 0 |then.ret|
|00002570| 75 72 6e 20 69 64 04 65 | 6c 73 65 0b 69 64 20 3d |urn id.e|lse.id =|
|00002580| 20 69 64 20 2b 20 31 03 | 65 6e 64 04 77 65 6e 64 | id + 1.|end.wend|
|00002590| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 09 45 6e |.End Fun|ction.En|
|000025a0| 61 62 6c 65 52 6f 77 10 | 69 6e 64 65 78 20 61 73 |ableRow.|index as|
|000025b0| 20 69 6e 74 65 67 65 72 | 00 00 06 10 06 10 0a 1f | integer|........|
|000025c0| 53 75 62 20 45 6e 61 62 | 6c 65 52 6f 77 28 69 6e |Sub Enab|leRow(in|
|000025d0| 64 65 78 20 61 73 20 69 | 6e 74 65 67 65 72 29 16 |dex as i|nteger).|
|000025e0| 69 66 20 6d 65 2e 50 4d | 65 6e 75 48 56 61 6c 69 |if me.PM|enuHVali|
|000025f0| 64 20 74 68 65 6e 8e 01 | 64 65 63 6c 61 72 65 20 |d then..|declare |
|00002600| 73 75 62 20 45 6e 61 62 | 6c 65 49 74 65 6d 20 6c |sub Enab|leItem l|
|00002610| 69 62 20 22 49 6e 74 65 | 72 66 61 63 65 4c 69 62 |ib "Inte|rfaceLib|
|00002620| 22 20 28 74 68 65 4d 65 | 6e 75 20 61 73 20 69 6e |" (theMe|nu as in|
|00002630| 74 65 67 65 72 2c 69 74 | 65 6d 20 61 73 20 69 6e |teger,it|em as in|
|00002640| 74 65 67 65 72 29 1e 69 | 66 20 69 6e 64 65 78 20 |teger).i|f index |
|00002650| 3e 20 6d 65 2e 4c 69 73 | 74 43 6f 75 6e 74 28 29 |> me.Lis|tCount()|
|00002660| 20 74 68 65 6e 1e 72 61 | 69 73 65 20 6e 65 77 20 | then.ra|ise new |
|00002670| 6f 75 74 4f 66 42 6f 75 | 6e 64 73 45 78 63 65 70 |outOfBou|ndsExcep|
|00002680| 74 69 6f 6e 04 65 6c 73 | 65 1f 45 6e 61 62 6c 65 |tion.els|e.Enable|
|00002690| 49 74 65 6d 20 6d 65 2e | 50 4d 65 6e 75 48 61 6e |Item me.|PMenuHan|
|000026a0| 64 6c 65 2c 69 6e 64 65 | 78 03 65 6e 64 03 65 6e |dle,inde|x.end.en|
|000026b0| 64 07 45 6e 64 20 53 75 | 62 0a 44 69 73 61 62 6c |d.End Su|b.Disabl|
|000026c0| 65 52 6f 77 10 69 6e 64 | 65 78 20 61 73 20 69 6e |eRow.ind|ex as in|
|000026d0| 74 65 67 65 72 00 00 06 | 03 06 03 0a 20 53 75 62 |teger...|.... Sub|
|000026e0| 20 44 69 73 61 62 6c 65 | 52 6f 77 28 69 6e 64 65 | Disable|Row(inde|
|000026f0| 78 20 61 73 20 69 6e 74 | 65 67 65 72 29 16 69 66 |x as int|eger).if|
|00002700| 20 6d 65 2e 50 4d 65 6e | 75 48 56 61 6c 69 64 20 | me.PMen|uHValid |
|00002710| 74 68 65 6e 8f 01 64 65 | 63 6c 61 72 65 20 73 75 |then..de|clare su|
|00002720| 62 20 44 69 73 61 62 6c | 65 49 74 65 6d 20 6c 69 |b Disabl|eItem li|
|00002730| 62 20 22 49 6e 74 65 72 | 66 61 63 65 4c 69 62 22 |b "Inter|faceLib"|
|00002740| 20 28 74 68 65 4d 65 6e | 75 20 61 73 20 69 6e 74 | (theMen|u as int|
|00002750| 65 67 65 72 2c 69 74 65 | 6d 20 61 73 20 69 6e 74 |eger,ite|m as int|
|00002760| 65 67 65 72 29 1e 69 66 | 20 69 6e 64 65 78 20 3e |eger).if| index >|
|00002770| 20 6d 65 2e 4c 69 73 74 | 43 6f 75 6e 74 28 29 20 | me.List|Count() |
|00002780| 74 68 65 6e 1e 72 61 69 | 73 65 20 6e 65 77 20 6f |then.rai|se new o|
|00002790| 75 74 4f 66 42 6f 75 6e | 64 73 45 78 63 65 70 74 |utOfBoun|dsExcept|
|000027a0| 69 6f 6e 04 65 6c 73 65 | 20 44 69 73 61 62 6c 65 |ion.else| Disable|
|000027b0| 49 74 65 6d 20 6d 65 2e | 50 4d 65 6e 75 48 61 6e |Item me.|PMenuHan|
|000027c0| 64 6c 65 2c 69 6e 64 65 | 78 03 65 6e 64 03 65 6e |dle,inde|x.end.en|
|000027d0| 64 07 45 6e 64 20 53 75 | 62 08 43 68 65 63 6b 52 |d.End Su|b.CheckR|
|000027e0| 6f 77 23 69 74 65 6d 20 | 61 73 20 69 6e 74 65 67 |ow#item |as integ|
|000027f0| 65 72 2c 20 63 68 65 63 | 6b 65 64 20 61 73 20 62 |er, chec|ked as b|
|00002800| 6f 6f 6c 65 61 6e 00 00 | 06 18 06 18 0a 31 53 75 |oolean..|.....1Su|
|00002810| 62 20 43 68 65 63 6b 52 | 6f 77 28 69 74 65 6d 20 |b CheckR|ow(item |
|00002820| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 63 68 65 63 |as integ|er, chec|
|00002830| 6b 65 64 20 61 73 20 62 | 6f 6f 6c 65 61 6e 29 16 |ked as b|oolean).|
|00002840| 69 66 20 6d 65 2e 50 4d | 65 6e 75 48 56 61 6c 69 |if me.PM|enuHVali|
|00002850| 64 20 74 68 65 6e 9e 01 | 64 65 63 6c 61 72 65 20 |d then..|declare |
|00002860| 73 75 62 20 43 68 65 63 | 6b 49 74 65 6d 20 6c 69 |sub Chec|kItem li|
|00002870| 62 20 22 49 6e 74 65 72 | 66 61 63 65 4c 69 62 22 |b "Inter|faceLib"|
|00002880| 20 28 74 68 65 4d 65 6e | 75 20 61 73 20 69 6e 74 | (theMen|u as int|
|00002890| 65 67 65 72 2c 69 74 65 | 6d 20 61 73 20 69 6e 74 |eger,ite|m as int|
|000028a0| 65 67 65 72 2c 63 68 65 | 63 6b 20 61 73 20 62 6f |eger,che|ck as bo|
|000028b0| 6f 6c 65 61 6e 29 1d 69 | 66 20 69 74 65 6d 20 3e |olean).i|f item >|
|000028c0| 20 6d 65 2e 4c 69 73 74 | 43 6f 75 6e 74 28 29 20 | me.List|Count() |
|000028d0| 74 68 65 6e 1e 72 61 69 | 73 65 20 6e 65 77 20 6f |then.rai|se new o|
|000028e0| 75 74 4f 66 42 6f 75 6e | 64 73 45 78 63 65 70 74 |utOfBoun|dsExcept|
|000028f0| 69 6f 6e 04 65 6c 73 65 | 25 43 68 65 63 6b 49 74 |ion.else|%CheckIt|
|00002900| 65 6d 20 6d 65 2e 50 4d | 65 6e 75 48 61 6e 64 6c |em me.PM|enuHandl|
|00002910| 65 2c 69 74 65 6d 2c 63 | 68 65 63 6b 65 64 03 65 |e,item,c|hecked.e|
|00002920| 6e 64 03 65 6e 64 07 45 | 6e 64 20 53 75 62 0a 53 |nd.end.E|nd Sub.S|
|00002930| 65 74 52 6f 77 42 6f 6c | 64 1f 72 6f 77 20 61 73 |etRowBol|d.row as|
|00002940| 20 69 6e 74 65 67 65 72 | 2c 20 62 6f 6c 64 20 61 | integer|, bold a|
|00002950| 73 20 62 6f 6f 6c 65 61 | 6e 00 00 0e 0c 0e 0c 18 |s boolea|n.......|
|00002960| 2f 53 75 62 20 53 65 74 | 52 6f 77 42 6f 6c 64 28 |/Sub Set|RowBold(|
|00002970| 72 6f 77 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |row as i|nteger, |
|00002980| 62 6f 6c 64 20 61 73 20 | 62 6f 6f 6c 65 61 6e 29 |bold as |boolean)|
|00002990| 15 64 69 6d 20 53 74 79 | 6c 65 4e 20 61 73 20 69 |.dim Sty|leN as i|
|000029a0| 6e 74 65 67 65 72 00 16 | 69 66 20 6d 65 2e 50 4d |nteger..|if me.PM|
|000029b0| 65 6e 75 48 56 61 6c 69 | 64 20 74 68 65 6e a3 01 |enuHVali|d then..|
|000029c0| 64 65 63 6c 61 72 65 20 | 73 75 62 20 53 65 74 49 |declare |sub SetI|
|000029d0| 74 65 6d 53 74 79 6c 65 | 20 6c 69 62 20 22 49 6e |temStyle| lib "In|
|000029e0| 74 65 72 66 61 63 65 4c | 69 62 22 20 28 74 68 65 |terfaceL|ib" (the|
|000029f0| 4d 65 6e 75 20 61 73 20 | 69 6e 74 65 67 65 72 2c |Menu as |integer,|
|00002a00| 20 69 74 65 6d 20 61 73 | 20 69 6e 74 65 67 65 72 | item as| integer|
|00002a10| 2c 20 73 74 79 6c 65 20 | 61 73 20 69 6e 74 65 67 |, style |as integ|
|00002a20| 65 72 29 1c 69 66 20 72 | 6f 77 20 3e 20 6d 65 2e |er).if r|ow > me.|
|00002a30| 4c 69 73 74 43 6f 75 6e | 74 28 29 20 74 68 65 6e |ListCoun|t() then|
|00002a40| 1e 72 61 69 73 65 20 6e | 65 77 20 6f 75 74 4f 66 |.raise n|ew outOf|
|00002a50| 42 6f 75 6e 64 73 45 78 | 63 65 70 74 69 6f 6e 04 |BoundsEx|ception.|
|00002a60| 65 6c 73 65 1e 53 74 79 | 6c 65 4e 20 3d 20 6d 65 |else.Sty|leN = me|
|00002a70| 2e 50 47 65 74 49 74 65 | 6d 53 74 79 6c 65 28 72 |.PGetIte|mStyle(r|
|00002a80| 6f 77 29 20 69 66 20 42 | 69 74 77 69 73 65 41 4e |ow) if B|itwiseAN|
|00002a90| 44 28 31 2c 53 74 79 6c | 65 4e 29 20 3d 20 31 20 |D(1,Styl|eN) = 1 |
|00002aa0| 74 68 65 6e 10 69 66 20 | 6e 6f 74 20 62 6f 6c 64 |then.if |not bold|
|00002ab0| 20 74 68 65 6e 13 53 74 | 79 6c 65 4e 20 3d 20 53 | then.St|yleN = S|
|00002ac0| 74 79 6c 65 4e 20 2d 20 | 31 03 65 6e 64 04 65 6c |tyleN - |1.end.el|
|00002ad0| 73 65 0c 69 66 20 62 6f | 6c 64 20 74 68 65 6e 13 |se.if bo|ld then.|
|00002ae0| 53 74 79 6c 65 4e 20 3d | 20 53 74 79 6c 65 4e 20 |StyleN =| StyleN |
|00002af0| 2b 20 31 03 65 6e 64 03 | 65 6e 64 26 53 65 74 49 |+ 1.end.|end&SetI|
|00002b00| 74 65 6d 53 74 79 6c 65 | 20 6d 65 2e 50 4d 65 6e |temStyle| me.PMen|
|00002b10| 75 48 61 6e 64 6c 65 2c | 72 6f 77 2c 53 74 79 6c |uHandle,|row,Styl|
|00002b20| 65 4e 03 65 6e 64 03 65 | 6e 64 00 14 6d 65 2e 50 |eN.end.e|nd..me.P|
|00002b30| 52 65 6e 64 65 72 43 6f | 6e 74 72 6f 6c 28 30 29 |RenderCo|ntrol(0)|
|00002b40| 07 45 6e 64 20 53 75 62 | 0c 53 65 74 52 6f 77 49 |.End Sub|.SetRowI|
|00002b50| 74 61 6c 69 63 21 72 6f | 77 20 61 73 20 69 6e 74 |talic!ro|w as int|
|00002b60| 65 67 65 72 2c 20 69 74 | 61 6c 69 63 20 61 73 20 |eger, it|alic as |
|00002b70| 62 6f 6f 6c 65 61 6e 00 | 00 16 12 16 12 18 33 53 |boolean.|......3S|
|00002b80| 75 62 20 53 65 74 52 6f | 77 49 74 61 6c 69 63 28 |ub SetRo|wItalic(|
|00002b90| 72 6f 77 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |row as i|nteger, |
|00002ba0| 69 74 61 6c 69 63 20 61 | 73 20 62 6f 6f 6c 65 61 |italic a|s boolea|
|00002bb0| 6e 29 15 64 69 6d 20 53 | 74 79 6c 65 4e 20 61 73 |n).dim S|tyleN as|
|00002bc0| 20 69 6e 74 65 67 65 72 | 00 16 69 66 20 6d 65 2e | integer|..if me.|
|00002bd0| 50 4d 65 6e 75 48 56 61 | 6c 69 64 20 74 68 65 6e |PMenuHVa|lid then|
|00002be0| a3 01 64 65 63 6c 61 72 | 65 20 73 75 62 20 53 65 |..declar|e sub Se|
|00002bf0| 74 49 74 65 6d 53 74 79 | 6c 65 20 6c 69 62 20 22 |tItemSty|le lib "|
|00002c00| 49 6e 74 65 72 66 61 63 | 65 4c 69 62 22 20 28 74 |Interfac|eLib" (t|
|00002c10| 68 65 4d 65 6e 75 20 61 | 73 20 69 6e 74 65 67 65 |heMenu a|s intege|
|00002c20| 72 2c 20 69 74 65 6d 20 | 61 73 20 69 6e 74 65 67 |r, item |as integ|
|00002c30| 65 72 2c 20 73 74 79 6c | 65 20 61 73 20 69 6e 74 |er, styl|e as int|
|00002c40| 65 67 65 72 29 1c 69 66 | 20 72 6f 77 20 3e 20 6d |eger).if| row > m|
|00002c50| 65 2e 4c 69 73 74 43 6f | 75 6e 74 28 29 20 74 68 |e.ListCo|unt() th|
|00002c60| 65 6e 1e 72 61 69 73 65 | 20 6e 65 77 20 6f 75 74 |en.raise| new out|
|00002c70| 4f 66 42 6f 75 6e 64 73 | 45 78 63 65 70 74 69 6f |OfBounds|Exceptio|
|00002c80| 6e 04 65 6c 73 65 1e 53 | 74 79 6c 65 4e 20 3d 20 |n.else.S|tyleN = |
|00002c90| 6d 65 2e 50 47 65 74 49 | 74 65 6d 53 74 79 6c 65 |me.PGetI|temStyle|
|00002ca0| 28 72 6f 77 29 20 69 66 | 20 42 69 74 77 69 73 65 |(row) if| Bitwise|
|00002cb0| 41 4e 44 28 32 2c 53 74 | 79 6c 65 4e 29 20 3d 20 |AND(2,St|yleN) = |
|00002cc0| 32 20 74 68 65 6e 12 69 | 66 20 6e 6f 74 20 69 74 |2 then.i|f not it|
|00002cd0| 61 6c 69 63 20 74 68 65 | 6e 13 53 74 79 6c 65 4e |alic the|n.StyleN|
|00002ce0| 20 3d 20 53 74 79 6c 65 | 4e 20 2d 20 32 03 65 6e | = Style|N - 2.en|
|00002cf0| 64 04 65 6c 73 65 0e 69 | 66 20 69 74 61 6c 69 63 |d.else.i|f italic|
|00002d00| 20 74 68 65 6e 13 53 74 | 79 6c 65 4e 20 3d 20 53 | then.St|yleN = S|
|00002d10| 74 79 6c 65 4e 20 2b 20 | 32 03 65 6e 64 03 65 6e |tyleN + |2.end.en|
|00002d20| 64 26 53 65 74 49 74 65 | 6d 53 74 79 6c 65 20 6d |d&SetIte|mStyle m|
|00002d30| 65 2e 50 4d 65 6e 75 48 | 61 6e 64 6c 65 2c 72 6f |e.PMenuH|andle,ro|
|00002d40| 77 2c 53 74 79 6c 65 4e | 03 65 6e 64 03 65 6e 64 |w,StyleN|.end.end|
|00002d50| 00 14 6d 65 2e 50 52 65 | 6e 64 65 72 43 6f 6e 74 |..me.PRe|nderCont|
|00002d60| 72 6f 6c 28 30 29 07 45 | 6e 64 20 53 75 62 0d 50 |rol(0).E|nd Sub.P|
|00002d70| 47 65 74 49 74 65 6d 53 | 74 79 6c 65 0f 69 74 65 |GetItemS|tyle.ite|
|00002d80| 6d 20 61 73 20 69 6e 74 | 65 67 65 72 07 69 6e 74 |m as int|eger.int|
|00002d90| 65 67 65 72 01 08 17 08 | 17 0a 32 46 75 6e 63 74 |eger....|..2Funct|
|00002da0| 69 6f 6e 20 50 47 65 74 | 49 74 65 6d 53 74 79 6c |ion PGet|ItemStyl|
|00002db0| 65 28 69 74 65 6d 20 61 | 73 20 69 6e 74 65 67 65 |e(item a|s intege|
|00002dc0| 72 29 20 41 73 20 69 6e | 74 65 67 65 72 1b 64 69 |r) As in|teger.di|
|00002dd0| 6d 20 53 74 79 6c 65 50 | 74 72 20 61 73 20 4d 65 |m StyleP|tr as Me|
|00002de0| 6d 6f 72 79 42 6c 6f 63 | 6b 00 a1 01 64 65 63 6c |moryBloc|k...decl|
|00002df0| 61 72 65 20 73 75 62 20 | 47 65 74 49 74 65 6d 53 |are sub |GetItemS|
|00002e00| 74 79 6c 65 20 6c 69 62 | 20 22 49 6e 74 65 72 66 |tyle lib| "Interf|
|00002e10| 61 63 65 4c 69 62 22 20 | 28 74 68 65 4d 65 6e 75 |aceLib" |(theMenu|
|00002e20| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 20 69 74 65 | as inte|ger, ite|
|00002e30| 6d 20 61 73 20 69 6e 74 | 65 67 65 72 2c 20 63 68 |m as int|eger, ch|
|00002e40| 53 74 79 6c 65 20 61 73 | 20 70 74 72 29 00 1c 53 |Style as| ptr)..S|
|00002e50| 74 79 6c 65 50 74 72 20 | 3d 20 4e 65 77 4d 65 6d |tylePtr |= NewMem|
|00002e60| 6f 72 79 42 6c 6f 63 6b | 28 34 29 29 47 65 74 49 |oryBlock|(4))GetI|
|00002e70| 74 65 6d 53 74 79 6c 65 | 20 6d 65 2e 50 4d 65 6e |temStyle| me.PMen|
|00002e80| 75 48 61 6e 64 6c 65 2c | 69 74 65 6d 2c 53 74 79 |uHandle,|item,Sty|
|00002e90| 6c 65 50 74 72 00 1c 72 | 65 74 75 72 6e 20 53 74 |lePtr..r|eturn St|
|00002ea0| 79 6c 65 50 74 72 2e 73 | 68 6f 72 74 28 30 29 5c |ylePtr.s|hort(0)\|
|00002eb0| 32 35 36 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |256.End |Function|
|00002ec0| 0f 53 65 74 52 6f 77 55 | 6e 64 65 72 6c 69 6e 65 |.SetRowU|nderline|
|00002ed0| 24 72 6f 77 20 61 73 20 | 69 6e 74 65 67 65 72 2c |$row as |integer,|
|00002ee0| 20 75 6e 64 65 72 6c 69 | 6e 65 20 61 73 20 62 6f | underli|ne as bo|
|00002ef0| 6f 6c 65 61 6e 00 00 0f | 13 0f 13 18 39 53 75 62 |olean...|....9Sub|
|00002f00| 20 53 65 74 52 6f 77 55 | 6e 64 65 72 6c 69 6e 65 | SetRowU|nderline|
|00002f10| 28 72 6f 77 20 61 73 20 | 69 6e 74 65 67 65 72 2c |(row as |integer,|
|00002f20| 20 75 6e 64 65 72 6c 69 | 6e 65 20 61 73 20 62 6f | underli|ne as bo|
|00002f30| 6f 6c 65 61 6e 29 15 64 | 69 6d 20 53 74 79 6c 65 |olean).d|im Style|
|00002f40| 4e 20 61 73 20 69 6e 74 | 65 67 65 72 00 16 69 66 |N as int|eger..if|
|00002f50| 20 6d 65 2e 50 4d 65 6e | 75 48 56 61 6c 69 64 20 | me.PMen|uHValid |
|00002f60| 74 68 65 6e a3 01 64 65 | 63 6c 61 72 65 20 73 75 |then..de|clare su|
|00002f70| 62 20 53 65 74 49 74 65 | 6d 53 74 79 6c 65 20 6c |b SetIte|mStyle l|
|00002f80| 69 62 20 22 49 6e 74 65 | 72 66 61 63 65 4c 69 62 |ib "Inte|rfaceLib|
|00002f90| 22 20 28 74 68 65 4d 65 | 6e 75 20 61 73 20 69 6e |" (theMe|nu as in|
|00002fa0| 74 65 67 65 72 2c 20 69 | 74 65 6d 20 61 73 20 69 |teger, i|tem as i|
|00002fb0| 6e 74 65 67 65 72 2c 20 | 73 74 79 6c 65 20 61 73 |nteger, |style as|
|00002fc0| 20 69 6e 74 65 67 65 72 | 29 1c 69 66 20 72 6f 77 | integer|).if row|
|00002fd0| 20 3e 20 6d 65 2e 4c 69 | 73 74 43 6f 75 6e 74 28 | > me.Li|stCount(|
|00002fe0| 29 20 74 68 65 6e 1e 72 | 61 69 73 65 20 6e 65 77 |) then.r|aise new|
|00002ff0| 20 6f 75 74 4f 66 42 6f | 75 6e 64 73 45 78 63 65 | outOfBo|undsExce|
|00003000| 70 74 69 6f 6e 04 65 6c | 73 65 1e 53 74 79 6c 65 |ption.el|se.Style|
|00003010| 4e 20 3d 20 6d 65 2e 50 | 47 65 74 49 74 65 6d 53 |N = me.P|GetItemS|
|00003020| 74 79 6c 65 28 72 6f 77 | 29 20 69 66 20 42 69 74 |tyle(row|) if Bit|
|00003030| 77 69 73 65 41 4e 44 28 | 34 2c 53 74 79 6c 65 4e |wiseAND(|4,StyleN|
|00003040| 29 20 3d 20 34 20 74 68 | 65 6e 15 69 66 20 6e 6f |) = 4 th|en.if no|
|00003050| 74 20 75 6e 64 65 72 6c | 69 6e 65 20 74 68 65 6e |t underl|ine then|
|00003060| 13 53 74 79 6c 65 4e 20 | 3d 20 53 74 79 6c 65 4e |.StyleN |= StyleN|
|00003070| 20 2d 20 34 03 65 6e 64 | 04 65 6c 73 65 11 69 66 | - 4.end|.else.if|
|00003080| 20 75 6e 64 65 72 6c 69 | 6e 65 20 74 68 65 6e 13 | underli|ne then.|
|00003090| 53 74 79 6c 65 4e 20 3d | 20 53 74 79 6c 65 4e 20 |StyleN =| StyleN |
|000030a0| 2b 20 34 03 65 6e 64 03 | 65 6e 64 26 53 65 74 49 |+ 4.end.|end&SetI|
|000030b0| 74 65 6d 53 74 79 6c 65 | 20 6d 65 2e 50 4d 65 6e |temStyle| me.PMen|
|000030c0| 75 48 61 6e 64 6c 65 2c | 72 6f 77 2c 53 74 79 6c |uHandle,|row,Styl|
|000030d0| 65 4e 03 65 6e 64 03 65 | 6e 64 00 14 6d 65 2e 50 |eN.end.e|nd..me.P|
|000030e0| 52 65 6e 64 65 72 43 6f | 6e 74 72 6f 6c 28 30 29 |RenderCo|ntrol(0)|
|000030f0| 07 45 6e 64 20 53 75 62 | 07 52 6f 77 42 6f 6c 64 |.End Sub|.RowBold|
|00003100| 0e 72 6f 77 20 61 73 20 | 69 6e 74 65 67 65 72 07 |.row as |integer.|
|00003110| 62 6f 6f 6c 65 61 6e 00 | 03 04 03 04 07 2b 46 75 |boolean.|.....+Fu|
|00003120| 6e 63 74 69 6f 6e 20 52 | 6f 77 42 6f 6c 64 28 72 |nction R|owBold(r|
|00003130| 6f 77 20 61 73 20 69 6e | 74 65 67 65 72 29 20 41 |ow as in|teger) A|
|00003140| 73 20 62 6f 6f 6c 65 61 | 6e 1c 69 66 20 72 6f 77 |s boolea|n.if row|
|00003150| 20 3e 20 6d 65 2e 4c 69 | 73 74 43 6f 75 6e 74 28 | > me.Li|stCount(|
|00003160| 29 20 74 68 65 6e 1e 72 | 61 69 73 65 20 6e 65 77 |) then.r|aise new|
|00003170| 20 6f 75 74 4f 66 42 6f | 75 6e 64 73 45 78 63 65 | outOfBo|undsExce|
|00003180| 70 74 69 6f 6e 04 65 6c | 73 65 2e 72 65 74 75 72 |ption.el|se.retur|
|00003190| 6e 20 42 69 74 77 69 73 | 65 41 4e 44 28 31 2c 6d |n Bitwis|eAND(1,m|
|000031a0| 65 2e 50 47 65 74 49 74 | 65 6d 53 74 79 6c 65 28 |e.PGetIt|emStyle(|
|000031b0| 72 6f 77 29 29 20 3d 20 | 31 03 65 6e 64 0c 45 6e |row)) = |1.end.En|
|000031c0| 64 20 46 75 6e 63 74 69 | 6f 6e 09 52 6f 77 49 74 |d Functi|on.RowIt|
|000031d0| 61 6c 69 63 0e 72 6f 77 | 20 61 73 20 69 6e 74 65 |alic.row| as inte|
|000031e0| 67 65 72 07 62 6f 6f 6c | 65 61 6e 00 04 2e 04 2e |ger.bool|ean.....|
|000031f0| 07 2d 46 75 6e 63 74 69 | 6f 6e 20 52 6f 77 49 74 |.-Functi|on RowIt|
|00003200| 61 6c 69 63 28 72 6f 77 | 20 61 73 20 69 6e 74 65 |alic(row| as inte|
|00003210| 67 65 72 29 20 41 73 20 | 62 6f 6f 6c 65 61 6e 1c |ger) As |boolean.|
|00003220| 69 66 20 72 6f 77 20 3e | 20 6d 65 2e 4c 69 73 74 |if row >| me.List|
|00003230| 43 6f 75 6e 74 28 29 20 | 74 68 65 6e 1e 72 61 69 |Count() |then.rai|
|00003240| 73 65 20 6e 65 77 20 6f | 75 74 4f 66 42 6f 75 6e |se new o|utOfBoun|
|00003250| 64 73 45 78 63 65 70 74 | 69 6f 6e 04 65 6c 73 65 |dsExcept|ion.else|
|00003260| 2e 72 65 74 75 72 6e 20 | 42 69 74 77 69 73 65 41 |.return |BitwiseA|
|00003270| 4e 44 28 32 2c 6d 65 2e | 50 47 65 74 49 74 65 6d |ND(2,me.|PGetItem|
|00003280| 53 74 79 6c 65 28 72 6f | 77 29 29 20 3d 20 32 03 |Style(ro|w)) = 2.|
|00003290| 65 6e 64 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |end.End |Function|
|000032a0| 0c 52 6f 77 55 6e 64 65 | 72 6c 69 6e 65 0e 72 6f |.RowUnde|rline.ro|
|000032b0| 77 20 61 73 20 69 6e 74 | 65 67 65 72 07 62 6f 6f |w as int|eger.boo|
|000032c0| 6c 65 61 6e 00 04 2e 04 | 2e 07 30 46 75 6e 63 74 |lean....|..0Funct|
|000032d0| 69 6f 6e 20 52 6f 77 55 | 6e 64 65 72 6c 69 6e 65 |ion RowU|nderline|
|000032e0| 28 72 6f 77 20 61 73 20 | 69 6e 74 65 67 65 72 29 |(row as |integer)|
|000032f0| 20 41 73 20 62 6f 6f 6c | 65 61 6e 1c 69 66 20 72 | As bool|ean.if r|
|00003300| 6f 77 20 3e 20 6d 65 2e | 4c 69 73 74 43 6f 75 6e |ow > me.|ListCoun|
|00003310| 74 28 29 20 74 68 65 6e | 1e 72 61 69 73 65 20 6e |t() then|.raise n|
|00003320| 65 77 20 6f 75 74 4f 66 | 42 6f 75 6e 64 73 45 78 |ew outOf|BoundsEx|
|00003330| 63 65 70 74 69 6f 6e 04 | 65 6c 73 65 2e 72 65 74 |ception.|else.ret|
|00003340| 75 72 6e 20 42 69 74 77 | 69 73 65 41 4e 44 28 34 |urn Bitw|iseAND(4|
|00003350| 2c 6d 65 2e 50 47 65 74 | 49 74 65 6d 53 74 79 6c |,me.PGet|ItemStyl|
|00003360| 65 28 72 6f 77 29 29 20 | 3d 20 34 03 65 6e 64 0c |e(row)) |= 4.end.|
|00003370| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 0a 53 65 74 |End Func|tion.Set|
|00003380| 52 6f 77 49 63 6f 6e 1f | 72 6f 77 20 61 73 20 69 |RowIcon.|row as i|
|00003390| 6e 74 65 67 65 72 2c 20 | 69 63 6f 6e 20 61 73 20 |nteger, |icon as |
|000033a0| 69 6e 74 65 67 65 72 00 | 00 05 02 05 02 08 2f 53 |integer.|....../S|
|000033b0| 75 62 20 53 65 74 52 6f | 77 49 63 6f 6e 28 72 6f |ub SetRo|wIcon(ro|
|000033c0| 77 20 61 73 20 69 6e 74 | 65 67 65 72 2c 20 69 63 |w as int|eger, ic|
|000033d0| 6f 6e 20 61 73 20 69 6e | 74 65 67 65 72 29 16 69 |on as in|teger).i|
|000033e0| 66 20 6d 65 2e 50 4d 65 | 6e 75 48 56 61 6c 69 64 |f me.PMe|nuHValid|
|000033f0| 20 74 68 65 6e a6 01 64 | 65 63 6c 61 72 65 20 73 | then..d|eclare s|
|00003400| 75 62 20 53 65 74 49 74 | 65 6d 49 63 6f 6e 20 6c |ub SetIt|emIcon l|
|00003410| 69 62 20 22 49 6e 74 65 | 72 66 61 63 65 4c 69 62 |ib "Inte|rfaceLib|
|00003420| 22 20 28 74 68 65 4d 65 | 6e 75 20 61 73 20 69 6e |" (theMe|nu as in|
|00003430| 74 65 67 65 72 2c 20 69 | 74 65 6d 20 61 73 20 69 |teger, i|tem as i|
|00003440| 6e 74 65 67 65 72 2c 20 | 69 63 6f 6e 49 6e 64 65 |nteger, |iconInde|
|00003450| 78 20 61 73 20 69 6e 74 | 65 67 65 72 29 14 2f 2f |x as int|eger).//|
|00003460| 69 66 20 69 63 6f 6e 20 | 3e 20 32 35 36 20 74 68 |if icon |> 256 th|
|00003470| 65 6e 29 53 65 74 49 74 | 65 6d 49 63 6f 6e 20 6d |en)SetIt|emIcon m|
|00003480| 65 2e 50 4d 65 6e 75 48 | 61 6e 64 6c 65 2c 72 6f |e.PMenuH|andle,ro|
|00003490| 77 2c 69 63 6f 6e 20 2d | 20 32 35 36 05 2f 2f 65 |w,icon -| 256.//e|
|000034a0| 6e 64 03 65 6e 64 07 45 | 6e 64 20 53 75 62 0c 50 |nd.end.E|nd Sub.P|
|000034b0| 47 65 74 49 74 65 6d 49 | 63 6f 6e 0f 69 74 65 6d |GetItemI|con.item|
|000034c0| 20 61 73 20 69 6e 74 65 | 67 65 72 07 69 6e 74 65 | as inte|ger.inte|
|000034d0| 67 65 72 01 05 28 05 28 | 09 31 46 75 6e 63 74 69 |ger..(.(|.1Functi|
|000034e0| 6f 6e 20 50 47 65 74 49 | 74 65 6d 49 63 6f 6e 28 |on PGetI|temIcon(|
|000034f0| 69 74 65 6d 20 61 73 20 | 69 6e 74 65 67 65 72 29 |item as |integer)|
|00003500| 20 41 73 20 69 6e 74 65 | 67 65 72 1b 64 69 6d 20 | As inte|ger.dim |
|00003510| 69 63 6f 6e 48 50 74 72 | 20 61 73 20 4d 65 6d 6f |iconHPtr| as Memo|
|00003520| 72 79 42 6c 6f 63 6b 00 | a0 01 64 65 63 6c 61 72 |ryBlock.|..declar|
|00003530| 65 20 73 75 62 20 47 65 | 74 49 74 65 6d 49 63 6f |e sub Ge|tItemIco|
|00003540| 6e 20 6c 69 62 20 22 49 | 6e 74 65 72 66 61 63 65 |n lib "I|nterface|
|00003550| 4c 69 62 22 20 28 74 68 | 65 4d 65 6e 75 20 61 73 |Lib" (th|eMenu as|
|00003560| 20 69 6e 74 65 67 65 72 | 2c 20 69 74 65 6d 20 61 | integer|, item a|
|00003570| 73 20 69 6e 74 65 67 65 | 72 2c 20 49 63 6f 6e 50 |s intege|r, IconP|
|00003580| 74 72 20 61 73 20 70 74 | 72 29 1c 49 63 6f 6e 48 |tr as pt|r).IconH|
|00003590| 50 74 72 20 3d 20 4e 65 | 77 4d 65 6d 6f 72 79 42 |Ptr = Ne|wMemoryB|
|000035a0| 6c 6f 63 6b 28 34 29 28 | 47 65 74 49 74 65 6d 49 |lock(4)(|GetItemI|
|000035b0| 63 6f 6e 20 6d 65 2e 50 | 4d 65 6e 75 48 61 6e 64 |con me.P|MenuHand|
|000035c0| 6c 65 2c 69 74 65 6d 2c | 49 63 6f 6e 48 50 74 72 |le,item,|IconHPtr|
|000035d0| 00 1e 72 65 74 75 72 6e | 20 49 63 6f 6e 48 50 74 |..return| IconHPt|
|000035e0| 72 2e 73 68 6f 72 74 28 | 30 29 20 2b 20 32 35 36 |r.short(|0) + 256|
|000035f0| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 0d 52 65 |.End Fun|ction.Re|
|00003600| 6d 6f 76 65 52 6f 77 49 | 63 6f 6e 0e 72 6f 77 20 |moveRowI|con.row |
|00003610| 61 73 20 69 6e 74 65 67 | 65 72 00 00 01 00 01 00 |as integ|er......|
|00003620| 03 21 53 75 62 20 52 65 | 6d 6f 76 65 52 6f 77 49 |.!Sub Re|moveRowI|
|00003630| 63 6f 6e 28 72 6f 77 20 | 61 73 20 69 6e 74 65 67 |con(row |as integ|
|00003640| 65 72 29 14 6d 65 2e 53 | 65 74 52 6f 77 49 63 6f |er).me.S|etRowIco|
|00003650| 6e 28 72 6f 77 2c 30 29 | 07 45 6e 64 20 53 75 62 |n(row,0)|.End Sub|
|00003660| 0d 47 65 74 4d 65 6e 75 | 48 65 69 67 68 74 00 07 |.GetMenu|Height..|
|00003670| 69 6e 74 65 67 65 72 00 | 05 18 05 18 0c 23 46 75 |integer.|.....#Fu|
|00003680| 6e 63 74 69 6f 6e 20 47 | 65 74 4d 65 6e 75 48 65 |nction G|etMenuHe|
|00003690| 69 67 68 74 28 29 20 41 | 73 20 69 6e 74 65 67 65 |ight() A|s intege|
|000036a0| 72 15 64 69 6d 20 6d 62 | 20 61 73 20 6d 65 6d 6f |r.dim mb| as memo|
|000036b0| 72 79 42 6c 6f 63 6b 00 | 92 01 64 65 63 6c 61 72 |ryBlock.|..declar|
|000036c0| 65 20 73 75 62 20 43 61 | 6c 63 4d 65 6e 75 53 69 |e sub Ca|lcMenuSi|
|000036d0| 7a 65 20 4c 69 62 20 22 | 49 6e 74 65 72 66 61 63 |ze Lib "|Interfac|
|000036e0| 65 4c 69 62 22 20 28 74 | 68 65 4d 65 6e 75 20 61 |eLib" (t|heMenu a|
|000036f0| 73 20 49 6e 74 65 67 65 | 72 29 20 49 6e 6c 69 6e |s Intege|r) Inlin|
|00003700| 65 36 38 4b 28 22 41 39 | 34 38 22 29 00 19 43 61 |e68K("A9|48")..Ca|
|00003710| 6c 63 4d 65 6e 75 53 69 | 7a 65 20 50 4d 65 6e 75 |lcMenuSi|ze PMenu|
|00003720| 48 61 6e 64 6c 65 20 00 | 16 6d 62 20 3d 20 6e 65 |Handle .|.mb = ne|
|00003730| 77 4d 65 6d 6f 72 79 42 | 6c 6f 63 6b 28 30 29 1b |wMemoryB|lock(0).|
|00003740| 6d 62 2e 6c 6f 6e 67 28 | 30 29 20 3d 20 6d 65 2e |mb.long(|0) = me.|
|00003750| 50 4d 65 6e 75 48 61 6e | 64 6c 65 00 20 72 65 74 |PMenuHan|dle. ret|
|00003760| 75 72 6e 20 6d 62 2e 70 | 74 72 28 30 29 2e 70 74 |urn mb.p|tr(0).pt|
|00003770| 72 28 30 29 2e 73 68 6f | 72 74 28 34 29 0c 45 6e |r(0).sho|rt(4).En|
|00003780| 64 20 46 75 6e 63 74 69 | 6f 6e 03 04 4f 70 65 6e |d Functi|on..Open|
|00003790| 00 00 05 43 6c 6f 73 65 | 00 00 06 43 68 61 6e 67 |...Close|...Chang|
|000037a0| 65 00 00 09 0a 4d 6f 75 | 73 65 45 6e 74 65 72 01 |e....Mou|seEnter.|
|000037b0| 00 01 00 03 10 53 75 62 | 20 4d 6f 75 73 65 45 6e |.....Sub| MouseEn|
|000037c0| 74 65 72 28 29 00 07 45 | 6e 64 20 53 75 62 09 4d |ter()..E|nd Sub.M|
|000037d0| 6f 75 73 65 45 78 69 74 | 01 00 01 00 03 0f 53 75 |ouseExit|......Su|
|000037e0| 62 20 4d 6f 75 73 65 45 | 78 69 74 28 29 00 07 45 |b MouseE|xit()..E|
|000037f0| 6e 64 20 53 75 62 0a 44 | 72 6f 70 4f 62 6a 65 63 |nd Sub.D|ropObjec|
|00003800| 74 01 00 01 00 03 1f 53 | 75 62 20 44 72 6f 70 4f |t......S|ub DropO|
|00003810| 62 6a 65 63 74 28 6f 62 | 6a 20 41 73 20 44 72 61 |bject(ob|j As Dra|
|00003820| 67 49 74 65 6d 29 00 07 | 45 6e 64 20 53 75 62 07 |gItem)..|End Sub.|
|00003830| 4d 6f 75 73 65 55 70 01 | 0c 01 0c 03 27 53 75 62 |MouseUp.|....'Sub|
|00003840| 20 4d 6f 75 73 65 55 70 | 28 58 20 41 73 20 49 6e | MouseUp|(X As In|
|00003850| 74 65 67 65 72 2c 20 59 | 20 41 73 20 49 6e 74 65 |teger, Y| As Inte|
|00003860| 67 65 72 29 0c 2f 2f 64 | 6f 20 6e 6f 74 68 69 6e |ger).//d|o nothin|
|00003870| 67 07 45 6e 64 20 53 75 | 62 09 4d 6f 75 73 65 44 |g.End Su|b.MouseD|
|00003880| 72 61 67 01 0c 01 0c 03 | 29 53 75 62 20 4d 6f 75 |rag.....|)Sub Mou|
|00003890| 73 65 44 72 61 67 28 58 | 20 41 73 20 49 6e 74 65 |seDrag(X| As Inte|
|000038a0| 67 65 72 2c 20 59 20 41 | 73 20 49 6e 74 65 67 65 |ger, Y A|s Intege|
|000038b0| 72 29 0c 2f 2f 64 6f 20 | 6e 6f 74 68 69 6e 67 07 |r).//do |nothing.|
|000038c0| 45 6e 64 20 53 75 62 09 | 4d 6f 75 73 65 44 6f 77 |End Sub.|MouseDow|
|000038d0| 6e 03 00 03 00 05 39 46 | 75 6e 63 74 69 6f 6e 20 |n.....9F|unction |
|000038e0| 4d 6f 75 73 65 44 6f 77 | 6e 28 58 20 41 73 20 49 |MouseDow|n(X As I|
|000038f0| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|00003900| 65 67 65 72 29 20 41 73 | 20 42 6f 6f 6c 65 61 6e |eger) As| Boolean|
|00003910| 14 6d 65 2e 50 52 65 6e | 64 65 72 43 6f 6e 74 72 |.me.PRen|derContr|
|00003920| 6f 6c 28 31 29 11 6d 65 | 2e 50 44 69 73 70 6c 61 |ol(1).me|.PDispla|
|00003930| 79 4d 65 6e 75 28 29 14 | 6d 65 2e 50 52 65 6e 64 |yMenu().|me.PRend|
|00003940| 65 72 43 6f 6e 74 72 6f | 6c 28 30 29 0c 45 6e 64 |erContro|l(0).End|
|00003950| 20 46 75 6e 63 74 69 6f | 6e 05 43 6c 6f 73 65 05 | Functio|n.Close.|
|00003960| 17 05 17 08 0b 53 75 62 | 20 43 6c 6f 73 65 28 29 |.....Sub| Close()|
|00003970| 07 43 6c 6f 73 65 28 29 | 00 16 69 66 20 6d 65 2e |.Close()|..if me.|
|00003980| 50 4d 65 6e 75 48 56 61 | 6c 69 64 20 74 68 65 6e |PMenuHVa|lid then|
|00003990| 3f 64 65 63 6c 61 72 65 | 20 73 75 62 20 44 69 73 |?declare| sub Dis|
|000039a0| 70 6f 73 65 4d 65 6e 75 | 20 6c 69 62 20 22 49 6e |poseMenu| lib "In|
|000039b0| 74 65 72 66 61 63 65 4c | 69 62 22 20 28 74 68 65 |terfaceL|ib" (the|
|000039c0| 4d 65 6e 75 20 61 73 20 | 69 6e 74 65 67 65 72 29 |Menu as |integer)|
|000039d0| 17 44 69 73 70 6f 73 65 | 4d 65 6e 75 20 50 4d 65 |.Dispose|Menu PMe|
|000039e0| 6e 75 48 61 6e 64 6c 65 | 03 65 6e 64 07 45 6e 64 |nuHandle|.end.End|
|000039f0| 20 53 75 62 04 4f 70 65 | 6e 0b 12 0b 12 12 0a 53 | Sub.Ope|n......S|
|00003a00| 75 62 20 4f 70 65 6e 28 | 29 00 b0 01 64 65 63 6c |ub Open(|)...decl|
|00003a10| 61 72 65 20 66 75 6e 63 | 74 69 6f 6e 20 4e 65 77 |are func|tion New|
|00003a20| 4d 65 6e 75 20 4c 69 62 | 20 22 49 6e 74 65 72 66 |Menu Lib| "Interf|
|00003a30| 61 63 65 4c 69 62 22 20 | 28 6d 65 6e 75 49 44 20 |aceLib" |(menuID |
|00003a40| 61 73 20 53 68 6f 72 74 | 2c 20 6d 65 6e 75 54 69 |as Short|, menuTi|
|00003a50| 74 6c 65 20 61 73 20 50 | 53 74 72 69 6e 67 29 20 |tle as P|String) |
|00003a60| 61 73 20 69 6e 74 65 67 | 65 72 20 49 6e 6c 69 6e |as integ|er Inlin|
|00003a70| 65 36 38 4b 28 22 41 39 | 33 31 22 29 00 21 6d 65 |e68K("A9|31").!me|
|00003a80| 2e 4d 65 6e 75 49 44 20 | 3d 20 6d 65 2e 50 47 65 |.MenuID |= me.PGe|
|00003a90| 74 55 6e 69 71 75 65 4d | 65 6e 75 49 44 28 29 00 |tUniqueM|enuID().|
|00003aa0| 16 69 66 20 6d 65 2e 4d | 65 6e 75 49 44 20 3c 3e |.if me.M|enuID <>|
|00003ab0| 20 30 20 74 68 65 6e 26 | 6d 65 2e 50 4d 65 6e 75 | 0 then&|me.PMenu|
|00003ac0| 48 61 6e 64 6c 65 20 3d | 20 4e 65 77 4d 65 6e 75 |Handle =| NewMenu|
|00003ad0| 28 6d 65 2e 4d 65 6e 75 | 49 44 2c 22 22 29 15 6d |(me.Menu|ID,"").m|
|00003ae0| 65 2e 50 4d 65 6e 75 48 | 56 61 6c 69 64 20 3d 20 |e.PMenuH|Valid = |
|00003af0| 74 72 75 65 03 65 6e 64 | 00 16 6d 65 2e 54 65 78 |true.end|..me.Tex|
|00003b00| 74 46 6f 6e 74 20 3d 20 | 22 47 65 6e 65 76 61 22 |tFont = |"Geneva"|
|00003b10| 0f 6d 65 2e 54 65 78 74 | 53 69 7a 65 20 3d 20 39 |.me.Text|Size = 9|
|00003b20| 00 11 6d 65 2e 50 4c 69 | 73 74 49 6e 64 65 78 20 |..me.PLi|stIndex |
|00003b30| 3d 20 31 00 06 4f 70 65 | 6e 28 29 07 45 6e 64 20 |= 1..Ope|n().End |
|00003b40| 53 75 62 05 50 61 69 6e | 74 01 14 01 14 03 18 53 |Sub.Pain|t......S|
|00003b50| 75 62 20 50 61 69 6e 74 | 28 67 20 41 73 20 47 72 |ub Paint|(g As Gr|
|00003b60| 61 70 68 69 63 73 29 14 | 6d 65 2e 50 52 65 6e 64 |aphics).|me.PRend|
|00003b70| 65 72 43 6f 6e 74 72 6f | 6c 28 30 29 07 45 6e 64 |erContro|l(0).End|
|00003b80| 20 53 75 62 00 00 00 | | Sub... | |
+--------+-------------------------+-------------------------+--------+--------+
